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

[klaus9]

Hallo,

hat jemand eine Idee wie ich eine Combobox so konfiguriere, das ich wenn im
Combobox

Wert1 anklicke die funktion Action1.execute ausgeführt wird
Wert2 anklicke die funktion Action2.execute ausgeführt wird

für jeden Hinweis oder Tipp bin ich sehr Dankbar.

[Coffeecoder]

Hey,

Eine Idee wäre den Name der Anwendung (z.b. Calculator.exe oder NotePad.exe) von der Combobox an die ShellExecuteEx-Funktion zu übergeben.

[Luckie]

Im OnClick bekommst du doch den ItemIndex mit:

Code:

wenn Item1 angeklickt
  mache das
wenn Item2 angeklickt
  mache das

Mit if oder case.

[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.

[klaus9]

Hey super Danke für die vielen Antworten, heute komme ich leider nicht mehr dazu diese mal zu testen.. aber morgen nachmittag werd ich mich mal dran setzen.

Danke euch allen einen guten Rutsch ins neue Jahr.