이재호 wrote:

> 안녕하세요?

> MDI Form에서 FormStyle이 Normal인 Password Dialog에서 Modal Form Open,Close하는 법,Focus잡는 법,Modal Form만 Close시키는 법을 알고 싶습니다.....

> 아시는 분 계시면 가르쳐주세요!!

>

제가 물어보고 답변까지 할려니 쑥쓰럽네요... 근데 문제를 해결했거든요......

------- 메인 Form -------

procedure TForm1.FormCreate(Sender: TObject);

begin

Application.Initialize;



FRM_Password1 := TFRM_Password1.Create(Self);

FRM_Password1.ShowModal;



if FRM_Password1.ModalResult = mrOK then

begin

FRM_Password1.Free;

FRM_Password1.Close;

end;

end;

-------- Modal Form ------------

procedure TFRM_PASSWORD1.SPT_CancelClick(Sender: TObject);

begin

ModalResult := mrCancel;

exit;

end;



procedure TFRM_PASSWORD1.SPT_ViewClick(Sender: TObject);

begin

With DM_CC_01.QUE_Admin.SQL do

begin

Clear;

Close;

Add(' SELECT '

+#13+' Adm.HSabun,Adm.HJuminNo, '

+#13+' Mst.HHname,Bus.HBuseoName '

+#13+' FROM '

+#13+' CC_Admin Adm, '

+#13+' HM_Master Mst '

+#13+' CC_Buseo Bus '

+#13+' WHERE '

+#13+' Adm.HSabun = '''+MED_HSabun.Text+''' '

+#13+' AND Adm.HJuminNo = '''+MED_HJuminNo.Text+''' '

+#13+' AND Mst.HSabun = Mst.HSabun '

+#13+' AND Bus.HBuseo = Mst.HBuseo ');

end;



DM_CC_01.QUE_Admin.Open;



if DM_CC_01.QUE_Admin.RecordCount < 1 then

begin

ShowMessage('사용자권한이 없습니다!!');

ModalResult := mrCancel;

Form1.Close;

exit;

end

else

begin

ShowMessage('시스템 사용 허가!!');

ModalResult := mrOK;

FRM_Password1.Close;

end;

end;