Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Ultimator,
5. Mai 2005
Ich hab das jetzt mal mit 2 ListBoxen gemacht und diesem Code hier:
procedure TForm1.ListBox1Click(Sender: TObject);
begin
if not (ListBox1.ItemIndex > ListBox2.Items.Count) then
ListBox2.ItemIndex := ListBox1.ItemIndex;
end;
Wenn ich jetzt einen Eintrag in der ersten ListBox anklicke, dann wird dieser blau und der entsprechende Eintrag in der 2. ListBox wird auch blau markiert.
Oder...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Ultimator,
5. Mai 2005
procedure TForm1.CheckListBox1Click(Sender: TObject);
begin
if not (CheckListBox1.ItemIndex > ListBox1.Item.Count) then
ListBox1.ItemIndex := CheckListBox1.ItemIndex;
end;
//edit Delphi-Tags vergessen :mrgreen:
Das ist doch das, was du möchtest, oder?