[Back to DELPHI SWAG index]  [Back to Main SWAG index]  [Original]


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


procedure TForm2.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.Style := Params.Style and not WS_OVERLAPPEDWINDOW or WS_BORDER
end;


For an MDI child form, setting the BorderStyle to bsNone does NOT remove
the title bar. (This is mentioned in the help).  This does it:

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

[Back to DELPHI SWAG index]  [Back to Main SWAG index]  [Original]