[TJvDesktopAlert] Sichtbar erst, wenn nichts mehr arbeitet..

[calculon]

Hallo,

ich habe gerade folgendes Problem: Wenn ich beispielsweise einen TJvDesktopAlert (JVCL) ausführe und danach irgendwelche weiteren Rechnungen stattfinden, der DesktopAlert erst ganz zum Schluss aufgezeigt wird:

Delphi-Quellcode:

procedure TForm12.Button1Click(Sender: TObject);
var
  i, j: integer;
  c: integer;
begin
  JvDesktopAlert1.Execute; 
  // danach folgt irgendeine längere Rechnung
  c := 0;
  for i := 0 to 10000000 do
    for j := 0 to 10000000 do
      c := i + j;
  // sichtbar wird das Alarm-Fenster erst hier
end;

Was ich schon probiert habe: application.processmessages, sogar die Rechnungen in einen Thread auszulagern hat nichts gebracht , wobei beim echten Programm mit der Speech-API hantiert wird und nicht mit zwei Schliefen (sollte nur als Beispiel gelten). Desweiteren besitzt die Komponente das Ereignis OnShown:

Delphi-Quellcode:

procedure TForm12.Alert1Shown(Sender: TObject);
begin
  // wenn ich hier ShowMessage('irgendwas'); einfüge, dann wird
  // das Alarm-Fenster sofort sichtbar; dummerweise nicht nur die...
end;

Kann mir da jemand weiterhelfen?

Gruß

Calculon
--