2 Listviews synchronisieren

[marcibaer]

Hallo zusammen,

ich habe ein TPageControl mit jeweils 1 Listview drauf.
Wie kann ich nun das Scrollen der beiden Listviews synchronisieren?
Ich finde leider kein OnScroll oder ähnliches!

Vielen Dank für Eure Hilfe,

Marc

[Sir Rufo]

Ein PageControl mit jeweils einem ListView

Code:

1*1=1

Ich bin bis jetzt noch bei einer ListView :stupid:

[Furtbichler]

Das Einfachste, was mir jetzt einfällt wäre ein Timer, der ab und zu schaut, welches denn das oberste Item ist "ListView.TopItem" oder "GetItemAt(0,0)" und dann den Cline mit ScrollBy irgendwie dazuzubringen, das gleiche Item anzuzeigen. Bisserl von hinten durch die Brust ins auge, sollte aber klappen.

Zitat:

Zitat von Sir Rufo (Beitrag 1131808)

Ein PageControl mit jeweils einem ListView

Code:

1*1=1

Ich bin bis jetzt noch bei einer ListView :stupid:

Genau, und Schreibfehler scheiden aus...

[marcibaer]

Zitat:

Zitat von Sir Rufo (Beitrag 1131808)

Ein PageControl mit jeweils einem ListView

Code:

1*1=1

Ich bin bis jetzt noch bei einer ListView :stupid:

Zu undeutlich ausgedrückt?!:)
Ich meine ein 2-Seitiges Pagecontrol, bei dem JEDE Seite EIN Listview hat.

Marc

[omata]

Vielleicht so...

[ConnorMcLeod]

Zitat:

Zitat von marcibaer (Beitrag 1131806)

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...

[Furtbichler]

Er hat ListViews, da kann man den TopIndex nicht so einfach setzen. Aber sonst hast Du recht.

[ConnorMcLeod]

Yo, habe ich schlecht gelesen bzw überlegt; sollte vllt doch mal ausschlafen ...
Egal, Fraaage: braucht man unbedingt ZWEI ListViews? Im OnChange kannste den Parent von einem ListView auf das künftig aktive TabSheet setzen und damit dort anzeigen. Ersparnis: 1 ListView und das Syncen.