Zeilenumbruch für DBGrids

[Tim Henford]

Lustigerweise funktioniert folgendes:

Delphi-Quellcode:

procedure TForm1.DBGrid1DrawColumnCell(...
var
  st   : string;
begin
  st:= Column.Field.AsString;

  if pos (#13#10,st)> 0 then
    with Sender As TDBGrid Do begin
      if Columns[DataCol].FieldName = 'Notes' then begin
        Canvas.FillRect(Rect);
        delete (st, pos (#13#10,st),length (st));
        Canvas.TextOut(Rect.Left+2, Rect.Top + 2 , st);
      end else
        DefaultDrawColumnCell(Rect , DataCol , Column , State) ;
    end;
end;