kontrol om sidste linje i memo er vist

Function LastLineVisible(Const M: TMemo): Boolean;
Var
  LastLineVisible: Integer;
  LineChar: Integer;
Begin
  LineChar:= sendmessage(M.handle, EM_charfrompos, 0, (M.ClientHeight - 1) Shl 16);
  LastLineVisible:= (linechar And $ffff0000) Shr 16;
  Result:= (LastLineVisible = M.Lines.Count);
End;

Hej!

Kunne du bruge mit svar, til noget?

:-)

Ja mange tak