Forum: Algorithmen, Datenstrukturen und Klassendesign
by Sir Rufo,
6. Jul 2015
Du machst dir einfach das Leben zu schwer ...
procedure TFoo.BarActionUpdate(Sender:Tobject);
begin
TAction(Sender).Enabled = not FBarRunning;
end;
procedure TFoo.BarActionExecute(Sender:TAction);
begin
BarRunning := True;
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Sir Rufo,
6. Jul 2015
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.