왕초보 wrote:

> project option 에서 로그인(패스워드 입력창)화면하구

> 메인 화면을 Autocreate부분에 놓았습니다

>

> 그러면 처음에 run될때 두개 폼이 동시에 뜹니다.

>

> 따로 따로 메인폼과 패스워드 폼을 만들었습니다

> 패스워드 창에 맞게 입력하면 메인을 뜨게 하고 싶습니다.

>

> 그런데 패스워드 창이 뜰때부터 MODAL 상태로 되려면 어떻게 해야죠..

>

> 다른 폼에서 부르는 form.showmodal 말고 자기 자신을 modal로

> 부르는 방법이 있나요

>

> T.T

>



저는 메인은 aotucreate로 했구여.. 로긴폼은 availabel로 했어여..



procedure TMainForm.FormCreate(Sender: TObject);

begin

TLoginForm.popup;



Height := 760;

Width := 1020;



init_proc;

end;



로긴폼에서..



class procedure TLoginForm.popup;

begin

LoginForm := TLoginForm.Create(Application);

LoginForm.ShowModal;

LoginForm.Free;

end;



procedure TLoginForm.btn_LoginOKClick(Sender: TObject);

var

str: String;

founded: Boolean;

begin

with DM.UserTable do

begin

open;

first;



str:= 'select * from user.db';

founded := false;

while not eof do

begin

if (FieldByName('login').AsString = Trim(ed_login.Text)) and

(FieldByName('passwd').AsString = Trim(ed_passwd.Text)) then

begin

founded := true;

LoginUser := FieldByName('login').AsString;

LoginLevel := FieldByName('passwd').AsString;

break;

end

else

next;

end;

close;

end;



if founded=false then

begin

ShowMessage('ID와 PassWord가 일치하지 않습니다.');

end

else

begin

close;

end;

end;



물어보신거에 맞는건지 모르겠어여..

그럼 이만...