Ver Mensaje Individual
  #6  
Antiguo 21-09-2010
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
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.

Última edición por ecfisa fecha: 21-09-2010 a las 20:52:57.
Responder Con Cita