Redimensionar Form fsMDIChild desde código

[ecfisa]

Hola Lenny.

Tál como dice Federico, ese error te sale por que estás intentando usar un recurso que no has asignado, ejemplificando:

Si hacemos la creación el el evento OnShow del MDIForm queda:

Código Delphi [-]
procedure TMDIForm.FormShow(Sender: TObject);
begin
  Clientes:= TClientes.Create(nil);
  Clientes.Show;
end;

Luego de estar creado, podés redimensionarlo como y cuantas veces quieras. Para probar poné un ComboBox en MDIForm, agregale los valores 100,200,300,...N y usá este código en el evento OnChange del Combo:

Código Delphi [-]
procedure TMDIForm.ComboBox1Change(Sender: TObject);
begin
  Clientes.Height:= StrToInt(ComboBox1.Text);
end;

Una forma que se puede inducir el error que mencionas, es cambiando el código de FormShow de este modo:

Código Delphi [-]
procedure TMDIForm.FormShow(Sender: TObject);
begin
  with TClientes.Create(nil) do Show;
end;

Y luego intentar:

Código Delphi [-]
procedure TMDIForm.ComboBox1Change(Sender: TObject);
begin
   Clientes.Height:= StrToInt(ComboBox1.Text); // No!!!! Clientes no es un puntero válido 
end;

En este caso Clientes no ha sido instanciado...


Saludos.