Actions verwenden - Pre- und Post-Action

[Sir Rufo]

Siehe mein Tutorial http://www.delphipraxis.net/185749-f...-callback.html da mache ich genau das

Delphi-Quellcode:

procedure TFoo.BarActionExecute( Sender: TObject );
begin
  TAction(Sender).Enabled := False;
  FService.DoSomething( 
    procedure ( AResult: TBar; AException: Exception )
    begin
      // Verarbeitung der Rückgabe
      TAction(Sender).Enabled := true;
    end );
end;

Alle Buttons, die mit dieser Action verbunden sind, folgen der Enabled Eigenschaft.