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

نسخة كاملة : طريقة جعل نافذة ادخال اسم وكلمة المرور في بداية البرنامج
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2
السلام عليكم ورحمة الله وبركاته
ماهي طريقة جعل نافذة ادخال اسم وكلمة السر في بداية تشغيل البرنامج
وجزاكم الله خيرا
السلام عليكم
في حدث OnShow للـ Form الرئيسي تستدعي Form تسجيل الدخول باستخدام ShowModal
كود :
procedure TfrmPrincipal.FormShow(Sender: TObject); begin frmLogin.ShowModal; end;
S.FATEH كتب :السلام عليكم
في حدث OnShow للـ Form الرئيسي تستدعي Form تسجيل الدخول باستخدام ShowModal
كود :
procedure TfrmPrincipal.FormShow(Sender: TObject); begin frmLogin.ShowModal; end;

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

عن طريق الذهاب الى project-option-forms ثم بتختار النموذج الذي تريده أن يصبح رئيسيا
اخي rahiche تم تجريب الطريقة التي ذكرتها لكنها لم تفلح معي
s.fateh كتب :السلام عليكم
في حدث onshow للـ form الرئيسي تستدعي form تسجيل الدخول باستخدام showmodal
كود :
procedure tfrmprincipal.formshow(sender: Tobject); begin frmlogin.showmodal; end;

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

بالتوفيق
السلام عليكم

ابحث بالمنتدى عن كلمة Splash فهي اظهار نافذة في بداية تشغيل البرنامج

http://delphi4arab.net/forum/showthread.php?tid=276
واخيرا نجحت معي الطريقة التي ذكرها rahiche جزاكم الله جميعا الخير الكثير
السلام عليكم
الطريقة التي ذكرها 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 الدخول الى اول فورم:

[صورة: ProjectOptions_zps54579e7b.png]

ستحصل على :

كود :
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 وليس دلفي
الصفحات : 1 2