DBLookupcombobox bei auswahl Actionlist / Action ausführen

**klaus9**

Hallo,

habe ein kleines Problem..

Ich habe eine DBLookupCombobox und würde gerne bei Auswahl aus der DBLookupcombo eine Action aus einer Actionlist ausführen. Bei normalen Comboboxen habe ich es hinbekommen, folgendermaßen:

markieren

Delphi-Quellcode:

			procedure TForm1.FormCreate(Sender: TObject);

begin

ComboBox1.Items.AddObject('>Bitte wählen', TObject(0));

ComboBox1.ItemIndex := 0;

ComboBox1.Items.AddObject('test1', TObject(1111));

ComboBox1.Items.AddObject('test2', TObject(2222));

ComboBox1.Items.AddObject('test3', TObject(3333));

markieren

Delphi-Quellcode:

			procedure TForm1.ComboBox1Change(Sender: TObject);

 begin

if

    Assigned( ComboBox1.Items.Objects[ ComboBox1.ItemIndex ] ) and

    ( ComboBox1.Items.Objects[ ComboBox1.ItemIndex ] is TAction )

  then

    TAction( ComboBox1.Items.Objects[ ComboBox1.ItemIndex ] ).Execute;

end;

Wie funktioniert der Code bei einer DBLookupCombobox hin zu sagen, er soll mir den Wert der Tabelle Spalete
"ID" anzeigen und wenn ID xy ausgewählt wird soll er eine Action ausführen z.B. bei ID 1 = Action1 usw. das würde mir schon sehr viel weiterhelfen.

Für jeden Tipp bin ich sehr dankbar.

DBLookupcombobox bei auswahl Actionlist / Action ausführen

DBLookupcombobox bei auswahl Actionlist / Action ausführen

Forumregeln