Prüfen ob Scrollbar-Balken ganz unten ist

[Pseudemys Nelsoni]

hoi, danke für die antwort.

Leider funktioniert das nicht ganze:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
Var
  si: TScrollInfo;
begin
  si.cbSize := sizeof(si);
  si.fMask := SIF_ALL;
  if GetScrollInfo(RichEdit1.Handle, SB_VERT, si) <> 0 then
    if si.nPos + si.nPage >= si.nMax then
      showmessage('ja');
end;

sort bekomme ich den fehler "Inkompatible typen". Die zeile "if GetScrollInfo(RichEdit1.Handle, SB_VERT, si) <> 0 then" ist rot markiert