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