마음의 안정을 찾기 위하여

type 
  ... = class(TForm) 
{ other stuff above } 
procedure CreateParams(var Params: TCreateParams); override; 
{ other stuff below } 
  end; 

... 

Procedure MdiChildForm.CreateParams( var Params : tCreateParams ) ; 
Begin 
  Inherited CreateParams( Params ) ; 
  Params.Style := Params.Style and (not WS_CAPTION) ; 
End ;

procedure TForm1.Minimize1Click(Sender: TObject); 
begin 
  ShowWindow(Button1.Handle, SW_SHOWMINIMIZED); 
end; 

procedure TForm1.Maximize1Click(Sender: TObject); 
begin 
  ShowWindow(Button1.Handle, SW_SHOWMAXIMIZED); 
end; 

procedure TForm1.Restore1Click(Sender: TObject); 
begin 
  ShowWindow(Button1.Handle, SW_RESTORE); 
end;