Thema: Delphi wechfunktion

Einzelnen Beitrag anzeigen

Morlon

Registriert seit: 15. Dez 2004
Ort: Dillingen
38 Beiträge
 
Delphi 7 Professional
 
#1

Re: wechfunktion

  Alt 7. Jan 2005, 03:16
Zitat von Gentleman:
jo die stimmen.

wenn ich es folgendermaßen löse läuft es auch, allerdings wird die wave-datei dann immer wieder gespielt.
Delphi-Quellcode:
if now> Wake then //wake ist die weckzeit
  begin
    MediaPlayer2.Play;
  end;
Mach doch einfach ne boolean, die auf true gesetz wird, wenn dein mplayer beginnt, in die if-anweisung dann noch ne abfrage ob die bool false ist... fertig

also in der art:

Delphi-Quellcode:
var
  Form1: TForm1;
  bolWake: Boolean;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if now > Wake then if not bolWake then
  begin
    MediaPlayer2.Play;
    bolWake := True;
  end
end;

end.
Grüße
Morlon
  Mit Zitat antworten Zitat