1. 개발/실행 플랫폼

(1) OS :

(2) 개발툴 :

(3) 사용 Database :

2. 개발 중인 프로그램

3. 질문 내용

 

안녕하세요

MDI 처음 만들어보는 1인입니다.

MAIN폼에서 OnCreate 이벤트에  Self.WindowState := wsMaximized;를 넣어주어 최대화로 실행되도록 했습니다.

그런 뒤 메뉴에서 해당 페이지 클릭 하면 차일드폼이 열릴때 

차일드 폼 OnCreate 시에도 똑같이 Self.WindowState := wsMaximized;를 주어 최대화로 실행되도록 하는것도 문제가 없습니다.

그런데 컴퍼넌트 위치를 최대화시와 일반 크기일 때 위치를 변경해주려고

OnShow 이벤트에

btn_Search.Left := (pnlSearch.Width div 2) - (btn_Search.Width div 2); -> 해당 폼 중앙에 버튼이 위치하게끔

했는데 최대화 폼의 크기가 안들어갑니다.

별거 아닌거 같은데 왜이러는걸까요? 고수님들 부탁드려요T^T 벌써 몇시간째 이러는건지T^T

{***********************************************************}
{                      FormCreate Event                     }
{***********************************************************}
procedure TfrmUserInfo.FormCreate(Sender: TObject);
begin
  OutputDebugString(PWideChar('최대화 전_pnlSearch.width : ' + IntToStr(pnlSearch.width)));
  self.WindowState := wsMaximized;
  OutputDebugString(PWideChar('최대화 후_pnlSearch.width : ' + IntToStr(pnlSearch.width)));
end;
{***********************************************************}
{                       FormShow Event                      }
{***********************************************************}
procedure TfrmUserInfo.FormShow(Sender: TObject);
begin
  ComponentSet;
end;
procedure TfrmUserInfo.ComponentSet;
begin
  btn_Search.Left := (pnlSearch.Width div 2) - (btn_Search.Width div 2);

end;

[outputStartLog]

[34308] 최대화 전_pnlSearch.width : 698
[34308] 최대화 후_pnlSearch.width : 698

[34644] 버튼 위치 btn_Search.Width : 312

 

 

[34308]  실제 폼 크기_pnlSearch.Width : 1604

버튼 위치는 실제로 (폼width/2)-(버튼width/2) => (1604 / 2) - (75/2) = 764 나와야하는데요T^T         

※ pnlsearch 판낼은 Align = Top 옵션을줬습니다.