TAction.OnUpdate wird nicht ausgeführt

[Volker Z.]

Hallo Zusammen,

vielleicht bin ich einfach nur zu blöde, oder sitze schon zu lange vor dem Rechner und sehe die Wälder vor lauter Bäumen nicht mehr.

Meine Ausgangssituation: Auf einem Form liegt eine TActionList mit den TAction s von - sagen wir mal - A - Z. Jede TAction hat ihr eigenes TAction.OnUpdate . Alle TAction s haben (abgesehen von unterschiedlichen TAction.OnUpdate ) identische Eigenschaften, die Eigenschaft TActionList.State := asNormal .

Mein Problem: Es werden alle OnUpdate Events von A - Y ausgeführt, nur der für Z eben nicht. Versuche ich weitere TAction s einzufügen - mit zugehörigem TAction.OnUpdate -Event -, wird dieser auch nicht ausgeführt.

Ich hoffe, ich konnte mein Problem aussagekräftig genug beschreiben.

Kann mir da jemand weiterhelfen?

Gruß Volker

BTW: Nutze Delphi Xe4, Windows 10

[TigerLilly]

Dann wirft deine TAction Y eine Exception?

[mjustin]

Zitat von Volker Z.:

Alle TAction s haben (abgesehen von unterschiedlichen TAction.OnUpdate ) identische Eigenschaften

Sie haben alle (verschiedene) OnExecute Methoden? Mir ist einmal aufgefallen dass OnUpdate für eine Action nicht aufgerufen wurde weil dieser kein OnExecute zugewiesen war.

[Volker Z.]

Hallo,

vielen Dank erstmal für die Antworten.

Nein, eine Exeption wird von keiner TAction geschmissen.

Und: Allen TActions sind auch OnExecute -Events zugewiesen.

Gruß Volker

[TiGü]

Kannst du es in einen kleinen Beispiel-Projekt reproduzieren?

[nahpets]

Das Execute wird bei allen ausgeführt?

An verschieb mal die Action Z, an die Postiton A in der Actionlist. Tritt der Fehler immernoch bei dieser Action auf oder jetzt bei der Action, die sich an nun an der Position Z befindet.

Bleibt der Fehler bei der Action, ist die Position uninterresant und das A - Y funktionieren, Z aber nicht nur Zufall. Der Fehler muss dann irgendwo bei der Action Z (und den nachfolgenden) liegen.

Tritt der Fehler nun aber bei der "neuen" Action an Position Z auf, dürfte der Fehler eher im Umfeld der Actionlist zu suchen sein.

In den Sourcen zu Delphi 7 von Forms.pas gibt es die procedure TApplication.WndProc(var Message: TMessage); Schau bitte mal in Deinen Quellen nach, ob es bei Deiner Delphiversion in der Forms.pas Quelltext in der Form

Delphi-Quellcode:

CM_ACTIONEXECUTE, CM_ACTIONUPDATE:
  Message.Result := Ord(DispatchAction(Message.Msg, TBasicAction(Message.LParam)));

vorkommt. Wenn ja, setze da mal 'nen Breakpoint hin und schaue, ob der bei allen Actions angesprungen wird.

In der ActnList.pas gibt es die function TContainedAction.Update: Boolean; . Setze da ebenfalls mal 'nen Breakpoint und prüfe, ob der Debugger bei allen Actions dort anhält und prüfe mal beim Rückgabewert dieser Funktion, ob es, abhängig von der aufrufenden Action, Unterschiede im Ergebnis gibt.

Eventuell kommst Du ja damit dem Problem näher.

[Uwe Raabe]

Zitat:

In inaktiven Phasen der Anwendung wird für jede Aktion, die mit einem Steuerelement oder Menüeintrag verknüpft ist, das Ereignis OnUpdate ausgelöst.

Ist die betroffene Action eventuell nicht mit einem Steuerelement oder Menüeintrag verknüpft?

[Volker Z.]

Hallo,

ein herzliches Dankeschön für all die Antworten.

Die Idee 'nen Breakpoint im Update-Event der TActionList zu setzten hatte ich schon. Es wurden auch alle TAction s aktualisiert, nur eben die eine nicht (bzw. wenn ich weitere TAction s hinzufügte).

Die betroffene TAction ist mit einem TButton verknüpft.

Zwischenzeitlich habe ich das Formular neu gebaut. Jetzt funktioniert es. Mal schauen, ob ich den Unterschied noch finde.

Gruß Volker

[nahpets]

Hast Du mal im Quelltext der DFM nach Unterschieden geschaut?