Klokken

Tags:    delphi

Jeg sidder og mangler noget kode hvor jeg kan skrive et tidspunkt i en editbox (12:12)
og når jeg trykker på en knap skal programmet lave en eller anden function når det tidspunkt er nået bare en showmessage.



5 svar postet i denne tråd vises herunder
0 indlæg har modtaget i alt 0 karma
Sorter efter stemmer Sorter efter dato
Man kunne jo Gøre sådan her, man skal bruge en timer, edit og en knap:

Kode For Knap:

<pre>
Timer1.Enabled := True
</pre>

Kode For Timer (Husk at lave Klokken til en string):

<pre>
Klokken := Copy(TimeToStr(now),1,Length(TimeToStr(now))-3);
If Klokken = Edit1.Text then
showmessage('test');
Timer1.Enabled := False;
</pre>

Ja det var sådan det, det virkede på min.
- SpeC - #SpeC.DK @ Q-NET



Man kunne jo Gøre sådan her, man skal bruge en timer, edit og en knap:

Kode For Knap:

<pre>
Timer1.Enabled := True
</pre>

Kode For Timer (Husk at lave Klokken til en string):

<pre>
Klokken := Copy(TimeToStr(now),1,Length(TimeToStr(now))-3);
If Klokken = Edit1.Text then
showmessage('test');
Timer1.Enabled := False;
</pre>

Ja det var sådan det, det virkede på min.
- SpeC - #SpeC.DK @ Q-NET



Klokken til en string?





Klokken til en string?

mener du sådan her

procedure TForm1.Timer1Timer(Sender: TObject);
var Klokken : String;
begin
Klokken := Copy(TimeToStr(now),1,Length(TimeToStr(now))-3);
If Klokken = Edit1.Text then
showmessage('test');
Timer1.Enabled := False;
end;




Klokken til en string?

mener du sådan her

procedure TForm1.Timer1Timer(Sender: TObject);
var Klokken : String;
begin
Klokken := Copy(TimeToStr(now),1,Length(TimeToStr(now))-3);
If Klokken = Edit1.Text then
showmessage('test');
Timer1.Enabled := False;
end;


jeps =)

- SpeC - #SpeC.DK @ Q-NET



Jeg fik hjælp af en anden men nu virker det



t