S
siking
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.DoTimer(Sender:TObject);//可以
begin
Form1.Caption:=FormatDateTIme('yyyy-mm-dd hh:mm:ss',now);
end;
procedure DoTimer(Sender:TObject);//有错
begin
Form1.Caption:=FormatDateTIme('yyyy-mm-dd hh:mm:ss',now);
end;
procedure TForm1.FormCreate(Sender: TObject);
var
timer1:TTimer;
begin
timer1:=TTimer.Create(nil);
timer1.Interval:=1000;
timer1.OnTimer:=DoTimer;//如果DoTimer是普通函数就编译出错,如果DoTimer是对象中的方法就没问题
timer1.Enabled:=true;
end;
begin
Form1.Caption:=FormatDateTIme('yyyy-mm-dd hh:mm:ss',now);
end;
procedure DoTimer(Sender:TObject);//有错
begin
Form1.Caption:=FormatDateTIme('yyyy-mm-dd hh:mm:ss',now);
end;
procedure TForm1.FormCreate(Sender: TObject);
var
timer1:TTimer;
begin
timer1:=TTimer.Create(nil);
timer1.Interval:=1000;
timer1.OnTimer:=DoTimer;//如果DoTimer是普通函数就编译出错,如果DoTimer是对象中的方法就没问题
timer1.Enabled:=true;
end;