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 589 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);
     begin
          inherited CreateParams(Params);
          with Params do
             Style := (Style OR WS_POPUP) AND NOT WS_DLGFRAME;
     end;