Delphi-PRAXiS - Einzelnen Beitrag anzeigen - Delphi 2 ListBoxen verkuppeln (Beim Scrollen)

**kasi**

Dann so:

Code:

			procedure TForm1.ListBox1Click(Sender: TObject);

begin

ListBox2.TopIndex := ListBox1.TopIndex;

ListBox2.ItemIndex := ListBox1.ItemIndex;

end;

KASI

kasi Registriert seit: 18. Aug 2003 10 Beiträge Delphi 5 Enterprise	#20 Re: 2 ListBoxen verkuppeln (Beim Scrollen) 7. Okt 2003, 21:33 Dann so: markieren Code: procedure TForm1.ListBox1Click(Sender: TObject); begin ListBox2.TopIndex := ListBox1.TopIndex; ListBox2.ItemIndex := ListBox1.ItemIndex; end; KASI
	Zitat