mdi child 불러 올때 제가 쓰는 거고여...
mdi child 폼은 프로퍼티에 폼 스타일을 fsMDIChild로 바꾸어 주시고
Project -> Option -> child폼,nomal폼을 Available forms쪽으로 옮
기세여
그리고 일반 nomal 폼은 기냥 불러오셔도 됩니다
예) application.CreateForm(Tfrm_login, frm_login);
frm_login.showmodal;
frm_login.free;
child 폼 create 예)
var
childwindow : Tfrm_service ;
i : integer;
begin
if MDIChildCount > 0 then
begin
for i:=0 to MDIChildCount - 1 do
begin
if MDIChildren[i] is Tfrm_service then
begin MDIChildren[i].Show;
exit;
end;
end;
end;
frm_service := Tfrm_service.Create(Self);
frm_service.Left := 0;
frm_service.Top := 0;
frm_service.Width := frm_main.ClientWidth-4;//1020;
frm_service.Height :=frm_main.ClientHeight-99;// 631;
frm_service.show;
mdi child 폼은 프로퍼티에 폼 스타일을 fsMDIChild로 바꾸어 주시고
Project -> Option -> child폼,nomal폼을 Available forms쪽으로 옮
기세여
그리고 일반 nomal 폼은 기냥 불러오셔도 됩니다
예) application.CreateForm(Tfrm_login, frm_login);
frm_login.showmodal;
frm_login.free;
child 폼 create 예)
var
childwindow : Tfrm_service ;
i : integer;
begin
if MDIChildCount > 0 then
begin
for i:=0 to MDIChildCount - 1 do
begin
if MDIChildren[i] is Tfrm_service then
begin MDIChildren[i].Show;
exit;
end;
end;
end;
frm_service := Tfrm_service.Create(Self);
frm_service.Left := 0;
frm_service.Top := 0;
frm_service.Width := frm_main.ClientWidth-4;//1020;
frm_service.Height :=frm_main.ClientHeight-99;// 631;
frm_service.show;
end;