كيف انتقل من الفور رقم واحد بشكل اتوماتيكي باستعمال timer

[Mr.DOS]

سلام عليكم

ضع Ttimer على الفورم 1
غير خاصية Enabled للعنصر تيمر الى False
و Interval الى 10000=(10ثواني)


ضع الكود على التيمر دبل كليك 

كود :

procedure TForm1.Timer1Timer(Sender: TObject); begin form10.show; end;

في الحدث OnCreate للفورم 1 قم بتفعيل التيمر 

كود :

procedure TForm1.FormCreate(Sender: TObject); begin timer1.Enabled:=true; end;

تمام ، الان عليك بانهاء تفعيل التيمر 

في الحدث OnShow للفورم 10

كود :

procedure TForm10.FormShow(Sender: TObject); begin form1.Timer1.Enabled:=false; end;