Einzelnen Beitrag anzeigen

tomkupitz

Registriert seit: 26. Jan 2011
319 Beiträge
 
Delphi 11 Alexandria
 
#12

AW: Sychrone Listboxen

  Alt 19. Mai 2021, 15:26
Lösung:

Code:
    TopLine:=...

    Application.ProcessMessages;

    SendMessage(ListBox1.Handle, WM_VSCROLL, MakeLong(LOWORD(SB_THUMBPOSITION), TopLine), 0);
    SendMessage(ListBox2.Handle, WM_VSCROLL, MakeLong(LOWORD(SB_THUMBPOSITION), TopLine), 0);

    Application.ProcessMessages;
  Mit Zitat antworten Zitat