Zellen verbinden

[oki]

dann wird die länge als gesamte Textlänge bis #0 genommen. Probiers aus. Geht.

probier mal das:

Delphi-Quellcode:

DrawText((Sender as TStringGrid).Canvas.Handle,
                 PChar(Cells[ACol, ARow]),
                 -1,
                 R,
                 DT_CENTER or DT_VCENTER or DT_SINGLELINE);

Grrr roter Kasten!!