Richedit: prüfen ob verticale scrollbar sichtbar ist

[WtF]

Hi,
also wenn dir die größe von dem Richedit bekannt ist, kannst du es einfach so lösen:
Sagen wir ab Zeile 6 wird die scrollbar eingeblendet (das kannst du ja dann ausprobieren):

Code:

procedure TForm1.RichEdit1Change(Sender: TObject);
begin
if RichEdit1.Lines.Count>5 then showmessage('scrollbar ist da');
end;

Mfg