Richeditfeld auf Größe begrenzen

[Marco Haffner]

Hiermit solltest Du die möliche Anzahl der Zeilen erhalten:

Delphi-Quellcode:

var
  MaxLines: Word;
begin
  with RichEdit1 do
  begin
    Canvas.Font := Font;
    MaxLines := (Height div Canvas.TextHeight('Wg'));
  end;

  {...}
end;