Я заходел зделать скоко скрипт работает вот часть скрипта
Var
Sec:Integer;
Min:Integer;
Hour:Integer;
Timer1:TTimer ;
procedure Init;
begin
Sec:=0;
Min:=0;
Hour:=0;
timer1:=TTimer.Create(nil);
timer1.OnTimer:=@OnTimer1;
timer1.enabled:=true;
timer1.interval:=1000;
end;
procedure Free;
begin
Timer1.free;
end;
Procedure OnTimer1(Sender: TObject);
begin
Inc(Sec);
if (Sec>59) then
begin
Sec:=0 ;
Inc(Min);
if (Min>59) then
begin
Min:=0 ;
Inc(Hour);
Labelka21 := TLabel.Create(Main);
Labelka21.Parent:=main;
Labelka21.left:=150;
Labelka21.Top:=170;
Labelka21.caption:= (vartostr(Sec));
Labelka22 := TLabel.Create(Main);
Labelka22.Parent:=main;
Labelka22.left:=120;
Labelka22.Top:=170;
Labelka22.caption:= (vartostr(min));
Labelka23 := TLabel.Create(Main);
Labelka23.Parent:=main;
Labelka23.left:=90;
Labelka23.Top:=170;
Labelka23.caption:= (vartostr(Hour));
end;
end;
End;
Вот тут еще з лабелками ну форма в процедуре инит
и при включении непашет время вобще невыводится((
в чем моя Ошыбка?