VCL-Bug? Buttons auf TActionToolBar bleiben blau hinterlegt

[minimops]

Hallo ,

habe ein Problem mit Buttons (TActionClientItems) auf einer TActionToolBar. (D7 Prof.)

Mein Programm rendert einen Bericht, dauert ca. 5 Sekunden. Solange ist ein kleines Progressfensterchen mit ProgressBar sichtbar. Ich benutze keinen Thread, in den Iterationen der Generierung wird Application.ProcessMessages aufgerufen.

Wenn man während der Generierung mit der Maus über die Symbolleiste fährt (ohne klick), werde die Buttons blau hinterlegt. (Was ja auch normal ist). Leider bleiben die Buttons dann Blau hinterlegt, bis man nach Generierung wieder mit der Maus rüberfährt.

Ich habe einfach keine Idee, wie man das beheben kann. Kann mir da jemand helfen?

Danke Axel

[minimops]

Ich habe ein kleines Beispielprogramm erstellt.

Button "test" drücken, 2. Form geht auf. Beim "rüberfahren" über die Symbolleiste mit der Maus bleiben die Menu-Buttons blau hinterlegt...

Hat jemand eine Idee?

[shmia]

Ich kann dein Problem nicht nachvollziehen, da ich D5 verwende.
Aber du solltest alle Actions disablen, solange du länger dauernde Aktionen mit Application.ProccessMessages unterbrichst.
Ansonsten könnte eine 2. Action gestartet werden.
Allgemein:

Delphi-Quellcode:

procedure TForm1.Action1OnExecute(Sender:TObject);

   procedure EnableActions(v:Boolean);
   begin
     Action1.Enabled := v;
     Action2.Enabled := v;
    // usw
    // Hier sollte man sich etwas schlaueres einfallen lassen
   end;
begin
   // alle Actions abschalten
   EnableActions(False);
   try
      MachWasZeitKostet;
   finally
      // alle Actions abschalten
      EnableActions(True);
   end;
end;