Child창을 띄울때에 에러가.. 이부분은 정확히 이해를 못하겠는데요
mdi 를 띄우고 sdi 를 띄우면 되지 않을까요
mdi 가 엑티브 될때 로고창을 띄우는거에요
mdi 전역 변수 ok_lognok : Boolean 함수를 선언해서
mdi
procedure TMain_Form.FormActivate(Sender: TObject);
begin
if ok_lognok = False then
begin
HWLoginForm:=THWLoginForm.Create(Self);
HWLoginForm.ShowModal;
end ;
end;
로고 창에서 확인 버튼 누를때
id 랑 pw 가 맞은면 ok_lognok := true ; 하시고
틀리면 당연히 False ;
//참고 자료
procedure LoginForm.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
begin
if ok_lognok = true then //ALT + F4 방지
CanClose := True
else
CanClose := False ;
end;
MDI 메임폼이 TApplication.Mainform 이 되어야 합니다.
프로젝트 파일(*.dpr) 에서
Application.CreateForm(); 이 가장 먼저 실행된것이 일반적으로 메인폼 입니다.
따라서 MDI 메인 폼을 제일 먼저 Application.CreateForm() 시킨후, SDI 폼은 그 후에 Application.CreateForm() 하면 문제 없을 겁니다.
즐푸하세요..
타락천사..