Redimensionar form sem bordas
Alguém pode me dizer como redimensionar um form sem bordas, usando o cursor do mouse.
Carioca
Curtidas 0
Respostas
Cebikyn
10/12/2003
Declare na seção public:
Depois em implementation:
Isto tornará possível redimensionar o form, mesmo que ele não tenha bordas.
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.
GOSTEI 0