Combobox1 Items in Combobox2 einfügen

[TheKleini666]

Hallo,
Ich bins mal wieder.
Also meie Frage steht schon in der Überschrift:
Ich möchte, dass wen jemanden einen bestimmt wert in combobox1 auswählt (z.b.: iPod) items in combobox2 einfügt?
Mein code bis jetzt:

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
begin
combobox1.Items.Add('Windows: iPod');
combobox1.Items.Add('Windows: iPhone');
combobox1.Items.Add('Windows: iPad');
combobox1.Items.Add('Windows: Apple TV')
end;

procedure TForm2.Button2Click(Sender: TObject);
begin
combobox1.Items.Add('Mac: iPod');
combobox1.Items.Add('Mac: iPhone');
combobox1.Items.Add('Mac: iPad');
combobox1.Items.Add('Mac: Apple TV')
end;

procedure TForm2.Button3Click(Sender: TObject);
begin
combobox1.Items.Add('Linux: iPod');
combobox1.Items.Add('Linux: iPhone');
combobox1.Items.Add('Linux: iPad');
combobox1.Items.Add('Linux: Apple TV')
end;

procedure TForm2.ComboBox1Change(Sender: TObject);
begin

end;

end.

Ich hoffe ihr könnt mir weiterhelfen :O
Ich steh leider an.

Liebe Grüße,
TheKleini666

[wicht]

Delphi-Quellcode:

procedure TForm2.ComboBox1Change(Sender: TObject);
begin
  if ComboBox1.ItemIndex > -1 then
    ComboBox2.Items.Add(ComboBox1.Items[ComboBox1.ItemIndex]);
end;

HTH

[TheKleini666]

Zitat von wicht:

Delphi-Quellcode:

procedure TForm2.ComboBox1Change(Sender: TObject);
begin
  if ComboBox1.ItemIndex > -1 then
    ComboBox2.Items.Add(ComboBox1.Items[ComboBox1.ItemIndex]);
end;

HTH

Danke
Auf dass wär ich wirklich nie gekommen.
Danke vielmals

[TheKleini666]

Ich hab jetzt jedoch ein Problem:

Delphi-Quellcode:

procedure TForm3.ComboBox2Change(Sender: TObject);
begin
  if ComboBox1.ItemIndex > -1 then
    form4.Show;
  if Combobox1.Itemindex > -2 then
      form5.Show
end;

doch es öffnen sich immer autmatisch form4 und form5 egal ob ich auf das erste oder auf das zweite klicke.
Warum?

[wicht]

ItemIndex sagt, welcher Eintrag ausgewählt ist. -1 heißt, dass nichts ausgewählt ist, darum prüfe ich da gerne vorher drauf wie in meinem Beispiel.
Wenn du jetzt wissen möchtest, ob der erste Eintrag ausgewählt ist, kannst du es so machen:

Delphi-Quellcode:

if ComboBox1.ItemIndex = 0 then
  Form4.Show;

Für den zweiten Eintrag wäre der ItemIndex dann 1, für den danach 2, und so weiter. Wenn du natürlich sagst > -1, dann heißt das "immer wenn etwas ausgewählt ist, zeige die Form" - und > -2 ist immer "wahr", weil das Minimum von ItemIndex -1 ist.

[TheKleini666]

ok danke