Resize manual

Question

Ola a todos. Estou fazendo um form sem bordas(bsNone) e com varios componentes sobre ele. O q gostaria de fazer e de alguma forma o form possa ser redimensionado como um form normal (bsSizeable). Ja p...

Alysson · Answer

vc quer d� � resize, ???tenta por um Bot�o no canto do form, no cantinho diagonal inferior Direita.l� embaixo mesmo. a� no evento, onMouseDownvc bota uma variavel do tipoonmousedownRedimensionando:= True;no OnMouseUpRedimensionando := FALSE;no MouseMoveif Redimensionando = TRUE thenbegin{n lembro o codigo muito bem.mas axo q � esse}FORM.width := form.width +x;form.height := form.height +y;end;tentaew......

Vinicius2k · Answer

Colega,Ancore, (propriedade [color=green:3d9a295a05]Anchors[/color:3d9a295a05]) os componentes nas posi��es desejadas, que ao redimencionar o form eles ser�o redimensionados na mesma proporr��o... T+...

Cebikyn · Answer

Para fazer um form com borda bsNone comportar-se como um bsSizeable, basta declarar isto no public de seu form:

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;

Desta forma o form poder� ser redimensionado como se tivesse borda.

O q gostaria de fazer e de alguma forma o form possa ser [b:acd43ce1f4]redimensionado como um form normal[/b:acd43ce1f4] (bsSizeable).

Ltres · Answer

Valeu ajuda de todos, mas segundo o codigo q cebikyn passo funco perfeitamente....

F�rum Resize manual #212319