Form without caption

Add this line in the private part of the form to capture the message :

      Procedure CreateParams ( Var Params : TCreateParams ) ; Override ;

And the procedure in the implementation :

Procedure TForm1.CreateParams ( Var Params : TCreateParams ) ;

Begin

   Inherited CreateParams ( Params ) ;

   With Params Do

      Style := ( Style Or WS_POPUP ) And Not WS_DLGFRAME ;

End ;