Hallo ich versuche gerade zwei Memofelder gleichzeitig zu scrollen, allerdings scheitert es schon an einem
Irgendwie bekomme ich es nicht hin, dass das scrollen und der Text synchron laufen. Der Scrollbalken ist immer zu früh unten, obwohl die Max Position der Scrollbar genau die Zeilenanzahl des Textes besitzt.
Auch klappt das Scrollen nur wenn man auf die Pfeilbuttons der Scrollbar klickt oder vor und hinter den eigentlichen Scrollbalken.
Hier ist mal der Code:
Delphi-Quellcode:
procedure TForm1.ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode;
var ScrollPos: Integer);
begin
case ScrollCode of
scLineUp:
Memo1.Perform(EM_LINESCROLL, 0, -1);
scLineDown:
Memo1.Perform(EM_LINESCROLL, 0, 1);
scPageUp:
Memo1.Perform(EM_LINESCROLL, 0, -1);
scPageDown:
Memo1.Perform(EM_LINESCROLL, 0, 1);
scTop:
Memo1.Perform(EM_LINESCROLL, 0, -1);
scBottom:
Memo1.Perform(EM_LINESCROLL, 0, Memo1.Lines.Count);
scEndScroll:
Memo1.Perform(EM_LINESCROLL, 0, Memo1.Lines.Count-ScrollBar1.Position);
end;
end;