TActionlist -> 2 Buttons -> Welcher wurde gedrückt ?

[RavenIV]

Trotzdem mein Beispiel:

Du brauchst auf dem Formular eine TActionList und TApplicationEvents

Dann:

Delphi-Quellcode:

procedure TFoStatus.AcButtonPressExecute(Sender: TObject);
begin
  if TBasicAction(AcButtonPress).ActionComponent = BuAbbrechen then
  begin
//    MachWas;
  end
  else if TBasicAction(AcButtonPress).ActionComponent = BuAbbrechen then
  begin
//    MachWasAnderes;
  end;
end;

procedure TFoStatus.ApplicationEvents1ActionExecute(Action: TBasicAction;
  var Handled: Boolean);
begin
  if Action.ActionComponent = BuAbbrechen then
  begin
//    MachWas;
  end
  else if Action.ActionComponent = BuAbbrechen then
  begin
//    MachWasAnderes;
  end;
end;

Nun wird erst ApplicationEvents1ActionExecute und dann AcButtonPressExecute ausgeführt.