Memo Scrollleiste ausblenden

[markus5766h]

Hallo,

Delphi-Quellcode:

var
 n : Integer;  // n = 2 * Border
with Memo do
 begin
  if (((Lines.Count -1) * (Font.Height * -1)) + n) > Height
   then
   .... do something // ScrollBar anzeigen 
 end;