Form sin caption pero con cualquier tipo de borde

Artículo por Club Developers · 31 diciembre 2005

2605 vistas

Para crear un formulario sin caption, pero con algún borde, sólo tendremos que proceder de la siguiente manera sobreescribiendo el método CreateParams



delphi
  1. ...
  2.   private
  3.     procedure CreateParams(var Params: TCreateParams); override;
  4.   public
  5.   end;
  6.  
  7. implementation
  8.  
  9. procedure TForm1.CreateParams(var Params: TCreateParams);
  10. begin 
  11.   inherited CreateParams(Params);
  12.   
  13.   with Params do 
  14.     Style := (Style or WS_POPUP) and not WS_DLGFRAME;
  15. end;