Ver Mensaje Individual
  #4  
Antiguo 20-12-2005
Avatar de Ohcan
[Ohcan] Ohcan is offline
Miembro Premium
 
Registrado: ago 2004
Ubicación: Madrid (España)
Posts: 119
Reputación: 21
Ohcan Va por buen camino
Hola pelaorb68

Creo que, para solucionar el error de 'Control Has No Parent Window', basataría con esto:
Código Delphi [-]
constructor TCustomComboIData.Create(AOwner: TComponent);
begin
  inherited;
  ParentWindow := AOwner; //<-- o tú ventana principal....
end;

destructor TCustomComboIData.Destroy;
var i:integer;
begin
  for Self.Items.Count-1 downto 0 do // <-- hacerlo al revés
  begin
    TString(Items.Objects[i]).Free;
    Items.Objects[i]:= nil;
  end;
  inherited Destroy;
end;
Espero que te sirva... y ¡bienvenido!

Saludos.
__________________
La violencia es el último recurso del incompetente. (Salvor Hardin)
Responder Con Cita