!!! FormCanResize

[Ledian_Fdez]

Holas amigos de este foro:

Les traigo un interrogante. Les explico:

Código Delphi [-]
procedure TFindForm.FormCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
begin
 Resize := False;
end;

Como yo podria variar el parametro Resize en true.

El problema es que bajo determinadas circuntacias necesito redimencionar mi formulario. pero hacerlo yo por programacion y no dejar que el usuario lo haga.

Gracias de antemano
Ledian.

[roman]

Usa una bandera (variable booleana):

Código Delphi [-]
procedure TFindForm.FormCanResize(Sender: TObject; var NewWidth,  NewHeight: Integer; var Resize: Boolean);
begin
 Resize := SeHacePorCodigo;
end;

Cuando quieras modificar el tamaño por código, pones en true esta variable, y la restauras a false al final:

Código Delphi [-]
SeHacePorCodigo := true;
Width := 100;
Height := 200;
SeHacePorCodigo := false;

// Saludos