Project -> View Source에 가셔서 login Form을 ShowModal로 보여주세요



이때 Login Form은 MDI 폼(부모폼, 자식폼 모두) 이 되어서는 안됩니다.



그냥 Nomal로 하세요.

이제관 wrote:

>

> Project -> View Source에 가셔서 login Form을 ShowModal로 보여주세요

>

> 이때 Login Form은 MDI 폼(부모폼, 자식폼 모두) 이 되어서는 안됩니다.

>

> 그냥 Nomal로 하세요.



이제관님 답변주셔서 감사드립니다.

허나 이방법대로 하였는데두 안되는 겁니다.

왜그렇죠? 프로젝트소스에서 넣었는데두 불구하구 계속 컴파일시

에러가 발생합니다.

소스는 아래와 같습니다.





program mdiform;



uses

Forms, Controls,

main in 'main.pas' {Form1},

child1 in 'child1.pas' {Form2},

child2 in 'child2.pas' {Form3},

login in 'login.pas' {Form4};



{$R *.RES}



function CheckUser:Boolean;

begin

Result:= False;

Form4 := TForm4.Create(Application);

try

if Form4.ShowModal=mrOk then Result:= True;

finally

Form4.Free;

end;

end;



begin

if CheckUser = True then begin

Application.Initialize;

Application.CreateForm(TForm1, Form1);

Application.Run;

end;



end.

제 소스를 보내니 참조하세요

program SchoolManager;



uses

Forms,

uCheckPassword in 'uCheckPassword.pas' {frmCheckPassword},

uMain in 'uMain.pas' {frmMain},

uCommon in 'uCommon.pas' {frmCommon},

uBoardSelect in 'uBoardSelect.pas' {frmBoardSelect},

uUsers in 'uUsers.pas' {frmUsers},

uBoard in 'uBoard.pas' {frmBoard},

Unit1 in 'Unit1.pas' {Form1};



{$R *.RES}



begin

Application.Initialize;



frmCommon := TfrmCommon.Create(Application); // 공통변수를 모아 넣은 폼

frmCommon.Hide;



frmCheckPassword := TfrmCheckPassword.Create(Application); //패스워드를 묻는 폼

frmCheckPassword.ShowModal; //이폼에서 체크가 맞으면 그냥 폼을 닫아준다.



Application.CreateForm(TfrmMain, frmMain); //mdi메인폼 생성



Application.Run;

end.