Redimensionar form sem bordas

10/12/2003

3

Alguém pode me dizer como redimensionar um form sem bordas, usando o cursor do mouse.


Responder

Posts

15/12/2003

Cebikyn

Declare na seção public:

procedure CreateParams(var Params: TCreateParams); override;


Depois em implementation:

procedure TForm1.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.Style := (Params.Style or WS_THICKFRAME);
end;


Isto tornará possível redimensionar o form, mesmo que ele não tenha bordas.


Responder