Actions verwenden - Pre- und Post-Action

[mm1256]

Hallo,

bin mir nicht sicher, ob hier der richtige Platz ist, darum bitte an die Mods, ggf. verschieben.

Ich habe folgendes Problem: Es geht um eine Anwendung mit mehreren Fenstern. Jedes Fenster hat ein Mainmenu und Buttons. Den Menü-Einträgen und Buttons ist größtenteils eine Action zugewiesen. Die TActionlist befindet sich in einem separaten Datenmodul, das von allen Fenstern verwendet wird. Soweit so gut.

Nun muss ich aber manchmal wenn eine Action ausgeführt wird, vorher und nachher am Formular Änderungen vornehmen, z.B. Button's disablen, damit die Funktion/Action nicht rekursiv aufgerufen wird. Ich müsste also praktisch vor und nach dem Ausführen der Action etwas ausführen.

Hat man daran nicht gedacht? Oder geht das, und ich seh den Wald vor Bäumen nicht?

[Uwe Raabe]

Zitat von mm1256:

z.B. Button's disablen, damit die Funktion/Action nicht rekursiv aufgerufen wird.

Das kann eigentlich nur dann vorkommen, wenn du in deinem Code Application.ProcessMessages aufrufst (was man ja nicht tun soll). Andernfalls wird der Event-Handler der Action als Antwort auf eine Message ausgeführt (Tastendruck, Mausklick oder so) und kann somit nicht von der Bearbeitung einer anderen Message unterbrochen werden.

Also stellt sich zunächst die Frage, warum du während des Events ünerhaupt einen Button disablen willst. Vielleicht, weil der Event zulange braucht under Benutzer aus Frust immer wieder auf den Button klickt?

Je nach Anwendungsfall gibt es da verschiedene Ansätze. Ein Wunsch nach einem Pre- und Post-Action-Event ist m.W. bisher noch nicht aufgetaucht.

[Rollo62]

Hallo mm1256,

wenn du meinst das während des Events Componenteneigenschaften geändert werden,
und dabei werden neue Actions getriggert, so das etwas rekursiv oder anders falsch läuft.

Man kann ja die OnChange Events vor solchen Veränderungen
kurz abklemmen (OnChange := nil),
Werte, z.B. Text ändern,
und danach wieder anklemmen (OnChange := oldEvent.
Wenn das nur ein einzelnes Problem betrifft.

Aber vielleicht wäre es sauberer wenn du vielleicht ein MultiEvent-System von Spring4D anschaust, ob das evtl. deine Probleme löst.

Rollo

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

[mm1256]

Hallo,

erst mal vielen Dank für eure Antworten.

Der Tipp von Sir Rufo löst das Problem teilweise, d.h. bei einigen Actions passt das prima.

Bei anderen Actions die gegeneinander verriegelt werden müssen und länger dauern können (z.B. alle Aktionen die Änderungen am Datenbestand vornehmen wie Daten-Import, Daten-Export...) wird es problematischer. Ich hab mich nun dazu entschlossen, die Actions im Public-Bereich der TActions zu deklarieren und entsprechend zu verwenden. Erscheint mir momentan der brauchbarste Kompromiss zu sein.

Das ursächliche Problem hier ist - wie Uwe schon richtig vermutet hat - das "Verbotene". In dem Fall bei der Fortschritt-Anzeige.

[Sir Rufo]

Hmmm, jede Action hat ein OnUpdate Event und dort kann man z.B. die Eigenschaften der Action verändern (dafür ist der Event da).

Und genau dort stellt man dann die Abhängigkeiten zwischen den Actions her. Einfach ein paar Flags die beim Starten einer Action gesetzt werden und dann im OnUpdate die Enabled Eigenschaft der jeweiligen Action setzen.