Hola Matorral.
No había pensado en la posibilidad de un componente que no derive de TControl como por ejemplo TIBQuery o TDataSource.
Seguramente el error que le dá a Rofocale viene por ahi...
Se puede solucionar con una simple verificación:
Código Delphi
[-]
procedure TForm1.FormCanResize(Sender: TObject; var NewWidth,
NewHeight: Integer; var Resize: Boolean);
var
i:Integer;
begin
for i:= 0 to Self.ComponentCount - 1 do
if Components[i] is TControl then
begin
TControl(Components[i]).Left:=
Round(NewWidth * TControl(Components[i]).Left / Width);
TControl(Components[i]).Top:=
Round(NewHeight * TControl(Components[i]).Top / Height);
end;
end;
Un saludo.