24-12-2008, 12:57 PM
قم بتعطيل Timer عند اول استعمال
مثلا لوكنت كاتب
كود :
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Form1.Color := ClRed;
end;كود :
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Form1.Color := ClRed;
Timer1.Enabled := False;
end;