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:
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));
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.