안녕 하세요?

BacTeria 박종민 입니다.

오늘의 Tip은 Panel의 속성을 변경하여 마치 MDI윈도우창인 것처럼 사용할수 있는 방법입니다.

폼에 Panel을 하나 올려 놓으시고 아래의 코드를 입력 해보세요. ㅋㅋ 재밌어집니다.

그럼 이만...

procedure TForm1.Button1Click(Sender: TObject);
begin
  SetWindowLong(Panel1.Handle,
                GWL_STYLE,
                GetWindowLong(Panel1.Handle, GWL_STYLE) or WS_CAPTION or WS_BORDER or WS_SYSMENU or WS_MINIMIZEBOX or WS_MAXIMIZEBOX or WS_THICKFRAME);

  ShowWindow(Panel1.Handle, SW_MINIMIZE);
  ShowWindow(Panel1.Handle, SW_RESTORE);
end;