ActionList disable bei Klick

[franktron]

Ich möchte wenn ich einen Button drücke der mit einer Actionlist verbunden ist, das dieser sofort disable wird und wieder enable wird wenn die Action ausgeführt worden ist.

Momentan würde ich das so machen

Delphi-Quellcode:

procedure TF_RA.A_PrintExecute(Sender: TObject);
Begin
  A_Print.Enabled:=False;
   xxxxxx
   A_Print.Enabled:=True;

Geht das auch global also für alle Actions.

[TRomano]

Ich würde immer die verbundene Action setzen:

Delphi-Quellcode:

  try
    TAction(Button.Action).Enabled := false;
    ....
   finally
    TAction(Button.Action).Enabled := true;
  end;

Vielleicht sollte man auch noch auf Vorhandensein einer Action (im Button) prüfen ...

Gruß

[Sir Rufo]

Zitat von TRomano:

Ich würde immer die verbundene Action setzen:

Und was macht er da?

Zitat von franktron:

Delphi-Quellcode:

procedure TF_RA.A_PrintExecute(Sender: TObject);
Begin
  A_Print.Enabled:=False;
   xxxxxx
   A_Print.Enabled:=True;

Ein TButton.OnExecute ist mir völlig fremd. Also befindet er sich in der Methode zum TAction.OnExecute Event ... genau die richtige Stelle. Der TButton.OnClick Event (so wie du gezeigt) ist da die völlig falsche Adresse

[TRomano]

Hatte ich übersehen (woher soll ich wissen, was er für einen Button benutzt) ... kann ja mal vorkommen.