StringGrid -> Angeklickte Zelle farblich

[DeddyH]

Ist vielleicht nicht das Eleganteste, aber so geht es z.B.:

Delphi-Quellcode:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if (StringGrid1.Col = ACol) and (ARow = 0) then
    begin
      StringGrid1.Canvas.Brush.Color := clred;
      StringGrid1.Canvas.FillRect(Rect);
    end;
end;

Allerdings musste ich beim OnClick mit StringGrid.Invalidate ein Neuzeichnen auslösen.