Kako napravit da program izbacuje neku poruku nakon svakih 10 sekundi???!?
Pitanje sa vremenskim periodom u delphiu??
Zaključano
Zakačeno
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
Potpis
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??
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??
Postavi TTimer komponentu na formu... Interval postavi na recimo 1000 ili 500, a u OnTimer eventu napisi
Trebalo bi da radi
Code:
procedure Timer1OnTimer(Sender: TObject);
begin
Edit1.Text := FormatDateTime('hh.mm.ss', Time);
end;
procedure Timer1OnTimer(Sender: TObject);
begin
Edit1.Text := FormatDateTime('hh.mm.ss', Time);
end;
Trebalo bi da radi