طريقة جعل نافذة ادخال اسم وكلمة المرور في بداية البرنامج

[ابو ريحانة]

السلام عليكم ورحمة الله وبركاته
ماهي طريقة جعل نافذة ادخال اسم وكلمة السر في بداية تشغيل البرنامج
وجزاكم الله خيرا

[S.FATEH]

السلام عليكم
في حدث OnShow للـ Form الرئيسي تستدعي Form تسجيل الدخول باستخدام ShowModal

كود :

procedure TfrmPrincipal.FormShow(Sender: TObject); begin frmLogin.ShowModal; end;

[rahiche]

السلام عليكم
في حدث OnShow للـ Form الرئيسي تستدعي Form تسجيل الدخول باستخدام ShowModal

كود :

procedure TfrmPrincipal.FormShow(Sender: TObject); begin frmLogin.ShowModal; end;

و يمكن ايضا جعل النموذج الرئيسي هو نموذج ادخال كلمة السر

عن طريق الذهاب الى project-option-forms ثم بتختار النموذج الذي تريده أن يصبح رئيسيا

[ابو ريحانة]

اخي rahiche تم تجريب الطريقة التي ذكرتها لكنها لم تفلح معي

[ابو ريحانة]

السلام عليكم
في حدث onshow للـ form الرئيسي تستدعي form تسجيل الدخول باستخدام showmodal

كود :

procedure tfrmprincipal.formshow(sender: Tobject); begin frmlogin.showmodal; end;

تم التجريب لكن نافذة الدخول لم تظهر عند تشغيل البرنامج

[مهند الرسيني]

السلام عليكم ورحمة الله وبركاته
جميع الطرق التي ذكرها الأعضاء الكرام صحيحة ..
لكني أشير عليك بالتركيز على نقطة آخرى .. فعندما نتحدث عن كلمة سر فهذا يعني أن محتوى البرنامج لا يجب تصفحه إلا من خلال إذن .. إلخ
لذلك أنا أييد طريقة الآخ rahiche فهي أصعب على الكراكر المبتدئين وكذلك يوجد طرق آخرى اعقد واصعب على الكراكر

بالتوفيق

[محمد عبد العزيز]

السلام عليكم

ابحث بالمنتدى عن كلمة Splash فهي اظهار نافذة في بداية تشغيل البرنامج
http://delphi4arab.net/forum/showthread.php?tid=276

[ابو ريحانة]

واخيرا نجحت معي الطريقة التي ذكرها rahiche جزاكم الله جميعا الخير الكثير

[S.FATEH]

السلام عليكم
الطريقة التي ذكرها rahiche غير ناجعة اطلاقا بسبب الفورم الرئيسي ساوضح لماذا :
بالذهاب الى Project > Options > Forms كل ما تفعله هو تعديل ملف dpr للمشروع للوصول الى ملف ملف dpr فقط :
Project>View Source

كود :

program Login; uses Vcl.Forms, uMain in 'uMain.pas' {frmMain}, uLogin in 'uLogin.pas' {frmLogin}; {$R *.res} begin Application.Initialize; Application.MainFormOnTaskbar := True; [color=Green] Application.CreateForm(TfrmMain, frmMain);[/color] [color=Magenta] Application.CreateForm(TfrmLogin, frmLogin);[/color] Application.Run end.

عندما تقوم بتغيير Form الدخول الى اول فورم:



ستحصل على :

كود :

program Login; uses Vcl.Forms, uMain in 'uMain.pas' {frmMain}, uLogin in 'uLogin.pas' {frmLogin}; {$R *.res} begin Application.Initialize; Application.MainFormOnTaskbar := True; [color=Magenta] Application.CreateForm(TfrmLogin, frmLogin);[/color] [color=Green] Application.CreateForm(TfrmMain, frmMain);[/color] Application.Run end.

عندما تحذف الفورم من Auto-Create فانت تحذف Application.CreateForm الخاصة به من ملف dpr.

في الدلفي الفورم الرئيسي لبرنامجك هو اول فورم يتم انشائه ()Application.CreateForm
اذا جعلت فورم الدخول هو الفورم الرئيسي :
- حالة تسجيل الدخول خاطئة لا مشكلة تقوم باغلاق الفورم Close و يغلق كامل البرنامج لان الفورم يعتبر الفورم الرئيسي لكامل البرنامج.
- حالة تسجيل الدخول ناجحة تقوم باخفائه Hide لا يمكن اغلاقه Close لانك ستغلق كامل البرنامج و تقوم باضهار الفورم الرئيسي عند عمل Minimize لتطبيق لاحظ ماذا يحدث التطبيق...

ارفق محاولتك ابو ريحانه لارى لماذا لم تشتغل الطريقة التي ذكرتها لديك ...

[ابو ريحانة]

اخي S.FATEH انا استعمل lazarus وليس دلفي