Ver Mensaje Individual
  #5  
Antiguo 31-07-2010
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola mjjj.

Si lo que queres es un form sin bordes y sizeable, hacé lo siguiente:

Código:
type
   TForm1 = class(TForm)
   private
       procedure CreateParams(var Params: TCreateParams); override;
   public
end;
 
var
  Form1: TForm1;
  ...
implementation 
 
procedure TForm1.CreateParams(var Params: TCreateParams);
begin
   BorderStyle := bsNone;
   inherited;
   Params.ExStyle := Params.ExStyle or WS_EX_STATICEDGE;
   Params.Style := Params.Style or WS_SIZEBOX;
end;

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita