Comboboxex wie verwenden?

[joe666sa]

Wie muss es aussehen wenn ich einen Eintrag einer Comboboxex auswähle dass dann ein commando ausgefürt wird?

[Chewie]

Du musst das Ereignis onClick auswerten. Den gewählten Eintrag kriegst du über ComboBox.ItemIndex.

[joe666sa]

Code:

procedure TForm1.ComboBoxEx1Click(Sender: TObject);
begin
if comboboxex1.ItemsEx := comboexitem1.Enabled:= true then
begin
showmessage ('AAA')
end

So oder? Aber das funzt nicht.

[Alexander]

versuch das mal so:

Delphi-Quellcode:

procedure TForm1.ComboBox1Click(Sender: TObject);
begin
 if (Combobox1.Items[Combobox1.ItemIndex] = 'Hallo') then
  SHowMEssage('Item Hallo wurde angeklickt');
end;

[TimmA]

Hi,

ich mache das so :

Delphi-Quellcode:

procedure TForm1.ComboBox1Click(Sender: TObject); 
begin 
if ComboBox1.ItemIndex = 1 then // Angenommen ItemIndex 1 ist Hallo 
  Showmessage('Hallo'); 
end;

[Alexander]

oder so...

[joe666sa]

und wie mach ich das jetzt das wenn zb der erste eintrag der comboboxex ausgewählt ist dass wenn man dann auf einen Button klick das hallo kommt?

[Alexander]

genau so :roll:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
if (Combobox1.Items[Combobox1.ItemIndex] = 'Hallo') then
  SHowMEssage('Item Hallo wurde angeklickt');
end;

[joe666sa]

Erst denken dannn fragen. Danke an alle.