Form çalışırken kontrol...

[Erd_turkmen]

s.a
Arkadaşlar forumda arama yaptım ancak bi sonuca ulaşamadım. Eğer varsa da linki yazmanız yeterli.
Program çalıştığı esnada örneğin saat 10:00 olduğu zaman bir mesaj vermesini istiyorum.
Kolay Gelsin..

[conari]

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  DateTime : TDateTime;
  str : string;
begin
  DateTime := Time;  // store the current date and time
  str := TimeToStr(DateTime); // convert the time into a string
  ShowMessage( str) ;
  Caption := TimeToStr(Time);
    end;
end.

str değerinin
str = 10:00:00 şekline karşılaştırabilirsiniz..

Kod: Tümünü seç

ShowMessage( str) ;

[lazio]

timer bileşenini kullanarak yapabilirsin..
viewtopic.php?t=15962&highlight=timer

[Erd_turkmen]

conari hocam teşekkürler ilginiz için ancak ben bu olayı program çalıştığı esnada herhangi bir nesneye tıklamadan yaptırmak istiyorum. Bu mümkün mü acaba ?

[conari]

timer bileşenini kullanarak yapabilirsin..
viewtopic.php?t=15962&highlight=timer

O zaman lazio hocanın dediği gibi timer ile time eşitleyip bulabilirsin.

Ben o pros. örnek olabilir diye verdim.Hazır açıktı önümde.
Kolay gelsin.

[Erd_turkmen]

Lazio hocamın verdiği linke bakarak istediğimi yaptım. herkese Teşekkürler.

Kod: Tümünü seç

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if TimeToStr(Time )= '14:54:00'
 then
showmessage('Zamanı Geldi');
end;

Ancak bi sorum daha olacak ; Saniyeyi yazmadan kontrol etmem mümkünmü? Yani Şartımda 14:54:00 yazdım ancak programı 14:54:50 Saatte açtığımda da bu mesajı verdirmek istiyorum ??

[conari]

o zaman saat ve dakika fonk kullanmak lazım

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
saat,dakika:string;
begin
saat:=inttostr(hourof(now));
dakika:=inttostr(minuteof(now));
Edit1.Text:=saat+':'+dakika;
end;

sen timer a göre uyarla