Einzelnen Beitrag anzeigen

bluesbear

Registriert seit: 14. Dez 2005
Ort: Hahnstätten
355 Beiträge
 
Delphi 2007 Enterprise
 
#7

Re: [TJvDesktopAlert] Sichtbar erst, wenn nichts mehr arbeit

  Alt 25. Feb 2008, 21:38
Zitat von calculon:
erstmal danke für deine Mühen
Das ist wirklich eine sehr nette Komponente, und ich werde sie wahrscheinlich auch mal selber benutzen. Aber erst, wenn ich sie verstanden habe
Zitat:
Also nur einen Timer zu setzen und nach dem Ablauf des Timer-Intervalls den nachfolgenden Code auszuführen, hatte bei mir auch nicht geholfen
Das Timerintervall muß natürlich länger sein als die Einblendzeit des DesktopAlerts, mit besser reichlich Reserve. Folgendes geht bei mir reproduzierbar:
Delphi-Quellcode:
begin // Schnellstes einblenden wo einstellbar (ich mag das badische 'wo' <g>)
  JvDesktopAlert1.StartInterval := 1;
  JvDesktopAlert1.StartSteps := 1;
  JvDesktopAlert1.EndInterval := 1;
  JvDesktopAlert1.EndSteps := 1;
  JvDesktopAlert1.Execute;
  Timer1.Enabled := True;
end;

procedure TForm12.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled := False;
  ShowMessage('Jetzt aber!');
end;
Der Timer ist auf 500ms eingestellt. Da hast Du eine halbe Sekunde Pause vor der Sprachausgabe, aber ich denke, das ist gut genug?
Klaus M. Hoffmann
  Mit Zitat antworten Zitat