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

[bluesbear]

Probier mal das hier, vielleicht klappt das ja:

Delphi-Quellcode:

procedure TForm12.Button1Click(Sender: TObject); 
var 
  i, j: integer; 
  c: integer; 
begin 
  JvDesktopAlert1.Execute;
  PostMessage(Handle, wm_User+11, 0, 0);  // irgendeine eigene Message halt
end;

// Der Handler für wm_User+11
procedure TForm12.wmUserPlusElf(...)
begin
  // danach folgt irgendeine längere Rechnung 
  c := 0; 
  for i := 0 to 10000000 do 
    for j := 0 to 10000000 do 
      c := i + j;
end;

Zitat:

Desweiteren besitzt die Komponente das Ereignis OnShown

Du könntest das PostMessage alternativ auch in OnShown einbauen, wenn das alles nix hilft.