delphiprog3000
چهارشنبه 10 آبان 1391, 09:03 صبح
با سلام به دوستان و اساتید محترم. تمام تاپیکهای ام دی ای و ساخت لاگین مطالعه کردم.
اما این مشکل تا به حال پیش نیومده بود.
کد مورد نظر اینه :
var
Login : TFrm_login;
begin
Login := TFrm_login.Create(Application);
if Login.ShowModal = mrOK then
begin
//Splash := TSplashFrm.Create(Application);
// Splash.Position := poScreenCenter;
//if Splash.ShowModal = mrOK then
//begin
Application.Initialize;
// Login.Position := poScreenCenter;
// if Login.ShowModal = mrOK then
Application.CreateForm(TFrm_main, Frm_main);
Application.CreateForm(TDataModule1, DataModule1);
Application.Run;
end;
هنگامی که این کد اجرا میشه ارور میده که میگه فرم اصلی ام دی ای ابتدا باید اجرا بشه.
در ضمن فرم main فرم ام دی ای اصلی و مابقی child هستند.
دیدم مثل این تاپیک نیست ایجاد کردم تا شاید مشکل سایر دوستان هم باشه.
با تشکر
اما این مشکل تا به حال پیش نیومده بود.
کد مورد نظر اینه :
var
Login : TFrm_login;
begin
Login := TFrm_login.Create(Application);
if Login.ShowModal = mrOK then
begin
//Splash := TSplashFrm.Create(Application);
// Splash.Position := poScreenCenter;
//if Splash.ShowModal = mrOK then
//begin
Application.Initialize;
// Login.Position := poScreenCenter;
// if Login.ShowModal = mrOK then
Application.CreateForm(TFrm_main, Frm_main);
Application.CreateForm(TDataModule1, DataModule1);
Application.Run;
end;
هنگامی که این کد اجرا میشه ارور میده که میگه فرم اصلی ام دی ای ابتدا باید اجرا بشه.
در ضمن فرم main فرم ام دی ای اصلی و مابقی child هستند.
دیدم مثل این تاپیک نیست ایجاد کردم تا شاید مشکل سایر دوستان هم باشه.
با تشکر