A form without caption, but with any border style  

Send By: Q3 Team
Web : http://www.q3.nu
Email: dlib@q3.nu
Date: 21/12/99

Tip accessed 663 times


Add this line in the private of your form's declaration:

      procedure CreateParams(var Params: TCreateParams); override;

and in the implementation part, put this procedure:

  procedure TForm1.CreateParams(var Params: TCreateParams);
          inherited CreateParams(Params);
          with Params do
             Style := (Style OR WS_POPUP) AND NOT WS_DLGFRAME;