delphi4arab منتديات دلفي للعرب

السلام عليكم و رحمة الله و بركاته

اخواني الكرام انا بصدد صنع برنامج تسيير مخزن
عندي 23 فورم و عندي الواجهة الرئيسية للبرنامجللبرنامج و هي عبارة ترحيب
كيف انتقل من الفور رقم واحد بشكل اتوماتيكي باستعمال timer ؟
مثلا اعط الأمر للبرنامج الإنتقال الى الفورم رقم 2 بعد مرور 10 ثواني
جزاكم الله كل خير

سلام عليكم

ضع 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; 

widad-wac

Mr.DOS