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
--