procedure TMainCustomerForm.ContactGridDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); begin with Sender as TStringGrid do begin // ©?¦²®? //if State=[gdSelected] then begin if (ACol = 2) and (ARow > 0) Then Begin Canvas.Brush.Color:= $0080FFFF; //©³¦â Canvas.FillRect(Rect); //ø©³¦â End; end; End; 這句在當我不是在grid中打字時,是沒有問題,但當我在grid中打字時,color郤消失了.......為何呢?

When editing a grid, an inplace editor (TInplaceEdit) will be created and shown on TOP of the grid.

那即是....???

The proper way is to create your own grid/inplace editor  >> >> > < class="code">unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, StdCtrls; type TStringGrid = class(Grids.TStringGrid) protected function CreateEditor: TInplaceEdit; override; end; TForm1 = class(TForm) StringGrid1: TStringGrid; private public end; var Form1: TForm1; implementation {$R *.dfm} type TMyEdit = class(TCustomEdit); function TStringGrid.CreateEditor: TInplaceEdit; begin Result := inherited CreateEditor; TMyEdit(Result).Color := clBlue; end; end.

Hi BorlandUser 您好: 試試這個~~

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
   with Sender as TStringGrid do begin
        if (ACol = 2) and (ARow > 0) Then Begin
           Canvas.Brush.Color:= $0080FFFF;
           Canvas.Font.Color := clBlack; // 文字色自己決定
           Canvas.FillRect(Rect);
           Canvas.TextOut(Rect.TopLeft.x,Rect.TopLeft.y 1,Cells[ACol, ARow]);            End;
   end;
end;

我不是高手, 高手是正在銀幕前微笑的人.

------


我不是高手, 高手是正在銀幕前微笑的人.

To: Miles 很多謝你的意見,但是你這個方法如果在stringgrid裏打text時,顏色又會轉回白色.. 再者我想問一個問題,有什麼方法可以讓某一個欄位不會進入editor模式.即可以打字,因為現在我是用keypress或keydown來控制,如果有些欄位是不能給user輸入,有些郤可以,我不能設定goediting為false,所以我想請問大家有什麼好方法嗎? 謝

Override CanEditShow method of your grid.

請問能詳細一點嗎?

Modify the above example to show editor for odd column only:    

unit Unit1;    interface    uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, Grids, StdCtrls;    type
    TStringGrid = class(Grids.TStringGrid)
    protected
        function CreateEditor: TInplaceEdit; override;
        function CanEditShow: Boolean; override;
    end;        TForm1 = class(TForm)
        StringGrid1: TStringGrid;
    private
    public
    end;    var
    Form1: TForm1;    implementation    {$R *.dfm}    type
    TMyEdit = class(TCustomEdit);    function TStringGrid.CanEditShow: Boolean;
begin
    Result := inherited CanEditShow and Odd(Col); 
end;    function TStringGrid.CreateEditor: TInplaceEdit;
begin
    Result := inherited CreateEditor;
    TMyEdit(Result).Color := clBlue;
end;    end.

在 SelectCell事件中添加。 procedure TFS23.GD02SelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean); begin GD02.EditorMode := Acol = 5 ; { COL = 5 允許編輯 } if Acol = 5 then GD02.Options := GD02.Options [goediting] else GD02.Options := GD02.Options - [goediting]; end; 最好加上 .EditorMode 用來關閉游標，避免 游標移位。這點很重要！ 在 Drawcell 事件中，可透過 Grid.Canvas 繪製背景灰色(無法編輯的地方)。

"最好加上 .EditorMode 用來關閉游標，避免 游標移位。這點很重要！" 這個我不太明白,因為就算不加這句,也會做到同樣效果,所以請問這句的用意為何呢? 還有,要多謝你的方法,你的方法可以不用改grid的原有function....

當 OPTIONS 有勾選goAlwaysShowEditor 在視窗一開啟時，如果這時又Grid 屬於 Focused 狀態 有可能會產生游標在不允許輸入的方格內 這樣就可以編輯不允許異動的欄位。 當然為保險起見。 先將編輯狀態關閉。 Grid.EditorMode := false;

感謝解答,問題都已解決,但我有一點不明白是為何你 GD02.EditorMode := Acol = 5 ; { COL = 5 允許編輯 } 這句是沒有問題呢? 因為我看help時,editormode是要設為true/false,但你郤設為數字,但又沒有發生錯誤,請問何解?還有這句用意又為何呢? 正如你之前所說,要加一句editormode為false的sentence,那即是否要變成這樣...: if Acol = 5 then begin GD02.Options := GD02.Options [goediting]; GD02.EditorMode := True; End Else Begin GD02.Options := GD02.Options - [goediting]; GD02.EditorMode := False; End; Am I correct?

你的頭有點暈歐！ Grid.EditorMode := ACOL = 5; -------- 相同於 if ACOL = 5 then Grid.EditorMode := True else Grid.EditorMode := false;

那個是 條件式 啦！ if ACOL = 5 then Grid.EditorMode := True else Grid.EditorMode := false; 這樣表示方式比較囉唆！ 所以我都習慣用 Grid.EditorMode := ACOL = 5;

哈哈..不好意思,因為我從來沒有用過這種寫法..我總會分幾行if...then..else 因為看來去較清楚,雖然code會較多幾行... 所以一時看不明白在寫什麼 :-p 不過我很多謝你的意見和解答 thx