Durch das folgende DrawCell Ereignis wird jede einzeilige Texteingabe im StringGrid zentriert ausgerichtet.
Delphi-Quellcode:
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
s: string;
begin
s := StringGrid1.Cells[ACol, ARow]; // Text der Zelle holen
StringGrid1.Canvas.FillRect(Rect); // Zelle leer überzeichnen
DrawText(StringGrid1.Canvas.Handle, PChar(s), Length(s), Rect, DT_SINGLELINE or DT_Center or DT_VCENTER); // Text zentriert zeichnen
end;
[edit=Matze] Mfg, Matze[/edit]