Combobox Werte sollen Action1.execute, Action2.execute ausführen

[Sir Rufo]

Wenn du dir deinen letzten Thread aufmerksam durchgelesen hättest und ein wenig Transferleistung dazu packst könntest du auf folgende Lösung kommen:

Delphi-Quellcode:

procedure TForm1.FormCreate( Sender : TObject );
begin
  // Items der ComboBox vorbelegen
  ComboBox1.Items.AddObject( Action1.Caption, Action1 );
  ComboBox1.Items.AddObject( Action2.Caption, Action2 );
end;

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;

Welchen Text man beim Füllen der Items verwendet ist natürlich völlig egal, Hauptsache, man packt eine Action (oder eine Ableitung derselbigen) als Object dazu.