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

نسخة كاملة : الانتقال من فورم 1 الي فوم 2 عن طريق التايمر
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم ورحمه الله وبركاته

اريد الانتقال من فورم 1 الي فوم 2  عن طريق التايمر فاستخدمت
كود :
procedure TForm1.TimerTimer(Sender: TObject); begin Timer.Interval := 10; Timer.Enabled := False; Form2.Show; Form1.Hide; end; end;
هذا الكود

ولكن فورم 1 لاتزال تعمل في الخلفية اريد اغلاقها نهائيا

واذا استخدمت close سوف يخرج من البرنامج
و عليكم السلام و رحمة الله

يخرج البرنامج لأن Form1 هي النافذة الرئيسية في البرنامج. لتفادي ذلك إما أن تخفيها فقط (Visible:=False) أو جعل النافذة الثانية نافذة رئيسية للبرنامج ثم غلق النافذة الأولى.


و الله هو الموفق و هو على كل شيء قادر.
بارك الله فيك اخي
و فيك فليبارك الله.

هل نجح الأمر ؟
الحمد لله نجح الامر
بارك الله فيك