請問各位如何隨著滑鼠點擊將TStringGrid個某一格變色?

例如點到 Cells[4,5] 則將這格變藍色?

在 StringGrid 的 OnDrawCell 事件加入以下程式碼

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
Obj : TstringGrid;
begin
Obj := TStringGrid(Sender);
if ((gdSelected in State) or (gdFocused in State)) then
begin
Obj.Canvas.Brush.Color := clBlue;
Obj.Brush.Style := bsSolid;
Obj.Font.Color := clYellow;
Obj.Canvas.FillRect(Rect);
Obj.Canvas.TextOut(Rect.Left 2,Rect.Top 2,Obj.Cells[ACol,ARow]);
end;
end;

Fishman

感激不盡!

===================引 用 文 章===================

在 StringGrid 的 OnDrawCell 事件加入以下程式碼

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
Obj : TstringGrid;
begin
Obj := TStringGrid(Sender);
if ((gdSelected in State) or (gdFocused in State)) then
begin
Obj.Canvas.Brush.Color := clBlue;
Obj.Brush.Style := bsSolid;
Obj.Font.Color := clYellow;
Obj.Canvas.FillRect(Rect);
Obj.Canvas.TextOut(Rect.Left 2,Rect.Top 2,Obj.Cells[ACol,ARow]);
end;
end;

Fishman