StringGrid Zelle wird erst nach verlassen der Zelle eingefär

[Chemiker]

Hallo,

Delphi-Quellcode:

procedure TfrmStringGridDemo.StringGrid1DrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
  with Sender as TStringGrid do
  begin
    if ((aCol >= FixedCols) and
        (aRow>=FixedRows) and (Objects[aCol, aRow]<> NIL)) then
    begin
      Canvas.Brush.Color:= TColor(Objects[aCol, aRow]);
      Canvas.FillRect(Rect);
      DrawText(Canvas.Handle, PChar(Cells[aCol, aRow]),
               Length(Cells[aCol, aRow]), Rect, DT_CENTER);
    end;
  end;
end;

mit dieser Procedure wird jede Zelle individuelle eingefärbt. Wenn ich die StringGrid-Options goEditing= False habe wird die Zelle sofort eingefärbt. Ist die Options goEditing = True wird die Zelle erst nach dem Verlassen eingefärbt.

Wie kann man es erreichen das die Zelle sofort eingefärbt wird, auch wenn goEditing auf True steht?

Bis bald Chemiker