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