باسلام واحترام خدمت دوستان خوب!
دربرناه ی موردنظر، تنظیماتی اختیارشده که ابتدا main_frm(فرم اصلی) لودشده والبته روی همان فرم، login_frm (تأییدکاربر) شاهرشده وسپس برنامه وفرم اصلی فعال شود. ولی متأسفانه این تنظیمات ظاهراً دچارمشکل شده ودرهنگام اجرای برنامه، فرم اصلی ظاهر میشود وهمزمان باآن، فرم تأییدکاربر وفرم معرفی هم بازمی شوند. وقاعدتاً بایدفرم تأییدکاربر(login_frm)روی فرم اصلی قراربگید که انجام نمی شود.
لطفاً راهنمایی بفرماییداشکال ازکجاست!
view surce:
کد HTML:
program Miz_Project;
uses Vcl.Forms, Main in 'Main.pas' {Main_frm}, Vcl.Themes, Vcl.Styles, Sabt in 'Sabt.pas' {sabt_frm}, Mrj in 'Mrj.pas' {mrj_frm}, Reports in 'Reports.pas' {Rep_frm}, abute in 'abute.pas' {abute_frm}, splash_screen in 'splash_screen.pas' {splashscreen}, Rep_Tak in 'Rep_Tak.pas' {Ar_tak_frm}, Rep_vahedd in 'Rep_vahedd.pas' {Rep_vahed_frm}, login in 'login.pas' {login_frm};
{$R *.res}begin Splashscreen:=TSplashscreen.Create(Application); Splashscreen.Show; Splashscreen.Update; Application.Initialize; //Application.MainFormOnTaskbar := True; TStyleManager.TrySetStyle('Iceberg Classico'); Application.CreateForm(TMain_frm, Main_frm); Application.CreateForm(Tsabt_frm, sabt_frm); Application.CreateForm(Tmrj_frm, mrj_frm); Application.CreateForm(TRep_frm, Rep_frm); Application.CreateForm(Tabute_frm, abute_frm); Application.CreateForm(TAr_tak_frm, Ar_tak_frm); Application.CreateForm(TRep_vahed_frm, Rep_vahed_frm); Application.CreateForm(Tlogin_frm, login_frm); Splashscreen.close; //Splashscreen.Free; login_frm.Show ; Application.Run; //Application.MainFormOnTaskbar := True;
main_frm.create:
کد HTML:
procedure TMain_frm.FormCreate(Sender: TObject);beginLabel1.Caption :=SolarDatePicker1.Text ;label1.Font.Color :=CLYellow;//label1.BringToFront ;label2.Font.Color :=CLYellow;//label2.BringToFront ;end;