MDI에서 Full Screen을 구현하려고 합니다.
Full Screen 모드 전환 프로시저는 다음과 같습니다.
procedure TMainForm.FullScreenClick(Sender: TObject);
begin
if BorderStyle=bsNone then
begin
BorderStyle:=bsSizeable;
WindowState:=wsNormal;
ToolBar2.Visible:=true;
bFullScreen:=false;
setwindowpos(Self.Handle,hwnd_topmost,p.X,p.Y,w,h,swp_nozorder or swp_showwindow);
end
else
begin
w:=Width;
h:=Height;
p.X:=Left;
p.Y:=Top;
ToolBar2.Visible:=false;
BorderStyle:=bsNone;
WindowState:=wsMaximized;
bFullScreen:=true;
end;
end;
이렇게 구현 하면 정확한 풀스크린 모드인지는 모르겠지만 하여튼 비슷하게 구현이
되는거 같습니다.
문제는 Child 창을 생성 한 후 풀스크린 모드를 하면 Child 창이 보이지 않는다는 겁니다.
MDIChildCount를 보면 Child 창이 Close 되어 있는거 아닌거 같습니다.
위와 같이 화면 전환 시 Child 창이 화면에 보이게 하려면 어떻해야 하는지
통 알 수가 없군요. 이거 어떻게 해결해야 할까요...
소스 첨부 하구요, MDI에서 풀스크린 모드를 구현하는 더 좋은 방법이 있을꺼 같기도 한데요... 정말 답답합니다.
좋은 답변 부탁드립니다.
그럼 좋은 하루 되세요.