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