Einzelnen Beitrag anzeigen

Benutzerbild von ConnorMcLeod
ConnorMcLeod

Registriert seit: 13. Okt 2010
Ort: Bayern
490 Beiträge
 
Delphi 10.4 Sydney
 
#6

AW: 2 Listviews synchronisieren

  Alt 22. Okt 2011, 05:38
ich habe ein TPageControl mit jeweils 1 Listview drauf.
Wie kann ich nun das Scrollen der beiden Listviews synchronisieren?
Wozu eigentlich? Man sieht immer nur eine ListView, weil die andere auf einer anderen Page ist, oder? Nur, wenn die Page gewechselt wird, wird's interessant. Dann kannst Du im OnChange oder im OnChanging herausfinden, welche Page gerade aktiv war und welche gerade aktiv wird. Danach setzt Du das erste Element ungefähr so:
Delphi-Quellcode:
var
  liTopIndex: integer;
begin
  liTopIndex := lbVergangenheit.SendMessage(lbVergangenheit.Handle, LB_GETTOPINDEX, 0, 0);
  if (-1 < liTopIndex) then
  begin
    lbZukunft.Perform(lbZukunft.Handle, LB_SETTOPINDEX, liTopIndex, 0);
  end;
end;
Ungetestet...
Nr.1 Delphi-Tool: [F7]

Geändert von ConnorMcLeod (22. Okt 2011 um 05:40 Uhr)
  Mit Zitat antworten Zitat