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
DirectX na srpskom |
GLScene na srpskom
There are only 10 types of people in this world; those who understand binary and those who don't.