Listbox zu listbox selektieren

[Andreas L.]

Tach,
ich bins mal wieder. Also ich habe 2 Listboxen und wenn in der ersten ein Item markiere soll in der zweiten Listbox ein item mit den selben itemindex markiert werden. Ich habe folgenden Code aber des funktioniert nicht, wahrscheinlich habe ich nur nen kleinen Denkfehler aber ich komm net drauf.

Delphi-Quellcode:

procedure TForm1.ListBox1Click(Sender: TObject);
begin
 //select a item in listbox2
 if ListBox1.SelCount > 0 then
  begin
   ListBox2.Selected[ListBox1.selcount];
  end;
end;

Danke schonmal

[leddl]

Ja gut, warum machst du dann nicht das, was du beschrieben hast?
Du willst doch in der 2. Listbox das Item mit demselben ItemIndex wie das markierte in der ersten auswählen. Du fragst jetzt aber in deinem Code ab, ob in ListBox 2 der (sagen wir mal, du hast in ListBox1 nur 1 Eintrag ausgewählt) 1. Eintrag ausgewählt ist. Bzw eigentlich fragst du nich mal ab. Falls du in ListBox2 nichts markiert hast, steht da bei dir sozusagen einfach nur false.

Was du machen mußt ist, den ItemIndex zu setzen. Also so:

Delphi-Quellcode:

If ListBox1.ItemIndex > -1 Then
  ListBox2.ItemIndex[ListBox1.ItemIndex];

Weiß jetzt nicht, wie das bei dir geregelt ist, aber du solltest dann noch evtl abfragen, ob in der 2. Listbox auch genug Items drin sin. Wenn das allerdings immer genau gleichviele sind, kannst du gut drauf verzichten.

[Andreas L.]

Hi,
Danke für deine antwort aber das geht trotzdem nicht:

Delphi-Quellcode:

 //select a item in listbox2
 if ListBox1.itemindex > -1 then
  begin
   ListBox2.Selected[ListBox1.itemindex];
  end;

[leddl]

Dann benutz halt mal meinen Code und mach, was ich vorgeschlagen hab...

Zitat von leddl:

ListBox2.ItemIndex[ListBox1.ItemIndex];

Zitat von onlinehome:

ListBox2.Selected[ListBox1.itemindex];

Soweit ich das weiß ist Selected ReadOnly und sagt dir nur, welche Items ausgewählt sind. ItemIndex sagt dir ganz speziell, welcher gerade markiert ist und darüber setzt du auch eine Markierung. Selected hat damit nicht das geringste zu tun. Das is nur zum Lesen, falls du mehrere Markierungen hast.

[Andreas L.]

Wenn ich es so mache wie du meldet der Compiler "Array-Typ erforderlich".

[leddl]

Ooops, OK. Ich hab auch leider zuerst deinen Code zitiert und deshalb das entscheidende vergessen...

Mußt dem ItemIndex natürlich was zuweisen... Und zwar sieht das richtig dann so aus:

Delphi-Quellcode:

If ListBox1.ItemIndex > -1 then  
   ListBox2.ItemIndex := ListBox1.itemindex;

[Andreas L.]

Ahh, jetzt gehts. Vielen Dank

[leddl]

Steht zu ItemIndex aber nich auch ein Beispiel in der OnlineHilfe?
Aber passt, hauptsache, es läuft jetzt...