Synkronisere listboxe

Hvorfor bruger du 2 listboxe. Hvis indholdet alligevel skal synkronisteres, er det nemmere at putte navne og årstal i en StringGrid

Eller et ListView (i report-mode). Fordelen er, at man eks. kan sortere når man klikker på en given kolonne.

(Hvis der er noget som er grimt lavet, så er det TStringGrid (TListView kommer ikke langt bagefter))

Vil du absolut vil scrolle to listbokse så kan du gøre det sådan (ikke kønt, men det virker):

procedure TForm1.ListBoxSync(Sender: TObject);
begin
  if Sender = ListBox1 then // We're in the left listbox, scroll the right
    ListBox2.ItemIndex := (Sender as TListBox).ItemIndex
  else
    ListBox1.ItemIndex := (Sender as TListBox).ItemIndex
end;

Begge listbokse har deres OnClick-event til at pege på ovenstående procedure.

Hej nca!

Jeg bruger 2 listboxe, da det er nødvendigt. Og ikke flere gode råd. TAK!

Hej hcr,

Tak for dit svar! Jeg har endnu ikke testet det,
så jeg vender tilbage, hvis såfremt ifald det ikke
skulle virke; men det gør det vel nok.

Hej nca,

undskyld mit skrappe svar. Det var ikke
meningen! Godt Nytår til dig.

Hej hcr,

du fik vel ikke mit svar til nca?
Jeg kunne ikke ændre i Acceptér/Svar-boksen.

Alle kommentarer og svar bliver distribueret til alle der deltager, hvis det er det du mente.

I øvrigt så virker mit eksempel helt fint. Hvis ikke man sætter begge itemindex'er til eks. 0, så får man et lidt haltende skift fra den boks som følger med den anden - men det er kun første gang.

Hej hrc,

funkede efter at have lavet 2 extra listboxe til
formålet, idet de eksisterende listboxe allerede
have en OnClick-event