Eine Art Tabelle mit Check- & Listbox

[Money Making Machinist]

Hi,

ich möchte eine Tabelle mit Checklistbox und Listbox machen (links Check, rechts List).
Und wenn man den eine Eintrag anklickt (also blau macht) soll in der anderen Box der Eintrag auf der selben Höhe auch blau werden.
Aber was ich auch versuch, ichs kriegs a) nicht hin und b)mit Fehlermeldung.

Delphi-Quellcode:

procedure TForm1.CheckListBox1Click(Sender: TObject);
var i : integer;
begin
if (checklistbox1.Selected[1] = true) then listbox1.Selected[1]:= true;

end;

Fehlermeldung ist dann: Der Index der Liste überschreitet das Maximum(1).

Hatte gehofft ihr könntet mir dabei weiterhelfen.

[Ultimator]

Delphi-Quellcode:

procedure TForm1.CheckListBox1Click(Sender: TObject); 
begin 
if not (CheckListBox1.ItemIndex > ListBox1.Item.Count) then
  ListBox1.ItemIndex := CheckListBox1.ItemIndex;
end;

//edit Delphi-Tags vergessen

Das ist doch das, was du möchtest, oder?

[Money Making Machinist]

Nene probiers mal in Delphi, mach dir ne Listbox, mach ein paar Einträge rein und klick dann mal auf einen Eintrag, damit er angewählt ist. Ich will die blaue Markierung machen.

[Ultimator]

Ich hab das jetzt mal mit 2 ListBoxen gemacht und diesem Code hier:

Delphi-Quellcode:

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 meinst du, dass man mehrere Einträge gleichzeitig markiert und dass dann in der anderen ListBox übernommen wird?

[Money Making Machinist]

Ne bei mir wird mit deinem Code nix blau. Ich wollt halt das die 2 Boxes, wie eine reagieren.

[Money Making Machinist]

Oder gibts vielleicht, eine etwas weniger kompliezierte Form, eine Tabelle zu erstellen?

[Khabarakh]

Schau dir mal TStringGrid an.

PS: Es gibt einen Edit-Button