### DrawGrid -> Farbwechsel funktioniert nicht ###

[Nonsense]

Hallo Community,
ich möchte gerne in ein DrawGrid zeichnen. Soweit kein Problem.
Wenn ich jetzt ein Spalte/Zeile auswähle, wird die Farbe der Zelle auf Blau gesetzt. Das Problem ist aber, dass, solange die Zelle noch ausgewählt ist, die Farbe von der Markierung "überschrieben" wird.
D.h., erst wenn ich auf mein Formular oder auf eine andere Komponente klicke, wird das Blau in der Zelle sichtbar, ansonsten bleibt die Zelle weiß.
Gibt es eine Möglichkeit, dass meine Zelle nach dem Anklicken _sofort_ ein sichbares Blau zeigt?

Hier der Code:

Delphi-Quellcode:

procedure TFormMain.DrawGridDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if (state = [gdSelected]) then 
    with TDrawGrid(Sender), Canvas do
    begin 
      Brush.Color := clBlue; 
      FillRect(Rect);
    end;
end;

Danke! :-D

[Nonsense]

Problem beseitigt. Erst im Forum suchen, dann posten...GD&R... :angle2:
Danke trotzdem...