[ Passwd @ 19.06.2005. 11:10 ] @
Kako napravit da program izbacuje neku poruku nakon svakih 10 sekundi???!? |
[ Passwd @ 19.06.2005. 11:10 ] @
[ bancika @ 19.06.2005. 11:27 ] @
stavi Timer komponentu, postavi joj interval na 10000 (ms) i na OnTimer stavi sta vec hoces. Enabled stavi na True/False kad hoces da ga pustis/stopiras
[ Passwd @ 19.06.2005. 11:55 ] @
Evo uspio sam....:)
Gle sta me muci: procedure TForm6.FormCreate(Sender: TObject); var dt:TDateTime; begin dt:=now; Edit1.Text:=(FormatDateTime('hh.mm.ss' ,dt)); end; Sve je to u redu, al kako napravit da stalno mijenja kako prolaze sekunde?? [ Srki_82 @ 19.06.2005. 12:18 ] @
Postavi TTimer komponentu na formu... Interval postavi na recimo 1000 ili 500, a u OnTimer eventu napisi
Code: procedure Timer1OnTimer(Sender: TObject); begin Edit1.Text := FormatDateTime('hh.mm.ss', Time); end; Trebalo bi da radi Copyright (C) 2001-2025 by www.elitesecurity.org. All rights reserved.
|