procedure Timertodo(var messag:Tmessage);message WM_TIMER;
procedure TForm1.FormCreate(Sender: TObject);
begin
settimer(form1.Handle,1001,600,nil);
end;
procedure TForm1.Timertodo;
begin
xsum:=0;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
killTimer(form1.Handle,1001);
end;
其中WM_TIMER消息没有在TControl和TWinControl中出现。因为SetTimer的第一个参数是句柄，所以我觉得不能给TControl设置，即使父Win控件可以转发给子图形控件，但是一般也没必要这样做。