ajustar componentes en form

[Matorral]

Hola Rofocale.

He probado el código y también me daba el mismo error. En mi caso me lo daba porque intentaba asignar valores (left y top) a propiedades readonly de componentes que no pertenecían a la clase TControl.

He cambiado el código y ya me funciona.

 
Código Delphi [-]
procedure TPrincipal.FormCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
var i:Integer;
var ClassRef: TClass;
var lEsControl:boolean;
begin
  for i:= 0 to ComponentCount - 1 do begin
    lEsControl:=False;
    ClassRef := Components[i].ClassType;
    while ClassRef <> nil do begin
      if ClassRef = TControl then
        lEsControl:=True;
      ClassRef := ClassRef.ClassParent;
    end;
    if lEsControl then begin
      TControl(Components[i]).Left:= 
           Round(NewWidth * TControl(Components[i]).Left / Principal.Width);
      TControl(Components[i]).Top:=  
           Round(NewHeight * TControl(Components[i]).Top / Principal.Height);
    end;
  end;
end;

Espero que no sea demasiado tarde y te sirva el código.

Un saludo.

[ecfisa]

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.