Timer

Jeg har prøvet at lave et lille program som skal spille en lyd når et klokkeslæt er nået

http://www.udvikleren.dk/eforum/thread.php?f=2&t=868

det hjælp jeg fik der virker kun hvis lyden skal afspilles i det minut du er i
hvis det ikke giver mening er her et eksempel

kl er 15:41
kl 16:42 skal den starte lyden,, det virker ikke

kl er 15:41
kl 15:41 skal den starte lyden,, det virker

Denne procedure laver et BEEP, når klokken den er 21:23:00 (du skal selvfølgelig have programmet åbent på det tidspunkt).
Du skal bare udskifte BEEP med fx playsound, hvis det skal sige en lyd (husk mmsystem i uses)
Du skal bare bruge en Timer:

procedure TForm1.Timer1Timer(Sender: TObject);
var Time1: String;
begin
Time1 := TimeToStr(Time);
if Time1 = '21:23:00' then beep;
end;


***************************************
***************** nife ******************
***************************************

Jeg har prøvet at lave et lille program som skal spille en lyd når et klokkeslæt er nået

http://www.udvikleren.dk/eforum/thread.php?f=2&t=868

det hjælp jeg fik der virker kun hvis lyden skal afspilles i det minut du er i
hvis det ikke giver mening er her et eksempel

kl er 15:41
kl 16:42 skal den starte lyden,, det virker ikke

kl er 15:41
kl 15:41 skal den starte lyden,, det virker

Denne procedure laver et BEEP, når klokken den er 21:23:00 (du skal selvfølgelig have programmet åbent på det tidspunkt).
Du skal bare udskifte BEEP med fx playsound, hvis det skal sige en lyd (husk mmsystem i uses)
Du skal bare bruge en Timer:

procedure TForm1.Timer1Timer(Sender: TObject);
var Time1: String;
begin
Time1 := TimeToStr(Time);
if Time1 = '21:23:00' then beep;
end;


***************************************
***************** nife ******************
***************************************

Jeg vil jo gerne have at man kan skrive tidspunktet i en editbox

Og jeg lavede en tom form, lavede en timer og skrev denne kode for timeren

procedure TForm1.Timer1Timer(Sender: TObject);
var Time1: String;
begin
Time1 := TimeToStr(Time);
if Time1 = '21:23:00'
then Showmessage('Test');
end;


Men det virker ikke...?