Hallo,
zwei LB sollen synchron gescrollt werden. Im Tool
http://www.screensoft.de/txtc.zip ist zu sehen wenn in der Vorschau (Mitte) gescrollt wird und beide LB nachgezogen werden sollen hängt die 2. LB etwas hinterher. Warum?
Code:
procedure TMainForm.PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
TopLine:=...
//
SendMessage(ListBox1.Handle, WM_VSCROLL, MakeLong(LOWORD(SB_THUMBPOSITION), TopLine), 0);
Application.ProcessMessages;
SendMessage(ListBox2.Handle, WM_VSCROLL, MakeLong(LOWORD(SB_THUMBPOSITION), TopLine), 0);
end;
Danke und beste Grüße