[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]