Combobox statt Button

[Anfänger]

:D Hallo, ich habe mir da mal wider was überlegt. Ich möchte gerne Statt zwei Buttons eine Combobox haben.
So soll das aussehen.

Im Button ist das ja so.
Button1
Label1.Caption := ´Test1´;
Button2
Label2.Caption := ´Test2´;

Also wie man das im Button macht weiß ich aber wie das in Combobox gemacht wird würde ich gerne wissen. Ich weiß bescheid das in Combobox erst ein mal zwei Namen stehen müssen, wo ich dann später auswählen kann was ich anklicken will. Und dann zu jedem Namen der Befehl. So nun ist aber ja mein Problem das ich nur weiß wie man Combobox erstellt. Aber wie man damit arbeitet weiß ich nicht. Währe vielleicht jemand so nett und würde es mir erklären.

:D Herzlichen dank schon mal im Vorraus.... :D

[Onkelz]

So würde es zB gehen:

// Über den Objectinspector kannst Du bei ITEMS Einträge vornehmen ...


procedure TForm1.ComboBox1Change(Sender: TObject);
var
s: String;
begin
if ComboBox1.Text = ´Begrüßung´ then
begin
ShowMessage(´Herzlich Willkommen!´);
end;
if ComboBox1.Text = ´Abschied´ then
begin
ShowMessage(´Auf Wiedersehen!´);
end;
end;

[Mackhack]

Hi,

so kannste es auch machen....

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
If ComboBox1.Items[ComboBox1.ItemIndex] = ´Test´ Then
Begin
ShowMessage(ComboBox1.Text);
End
Else
ShowMessage(´NIX´);
end;