Text in StringGrid Cell zentriert ausrichten

[Tpercon]

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]