procedure Timertodo(var messag:Tmessage);message WM_TIMER;procedure TForm1.FormCreate(Sender: TObject);beginsettimer(form1.Handle,1001,600,nil);end;pr... Read More
posted @ 2014-09-10 16:28 findumars Views(637) Comments(0) Diggs(0)