[ Passwd @ 19.06.2005. 11:10 ] @
Kako napravit da program izbacuje neku poruku nakon svakih 10 sekundi???!?
[ 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