Ayuda: Control Has No Parent Window

[[Ohcan]]

Bueno... me he creado un ejemplo simplificando:

Código Delphi [-]
unit Unit2;

interface
 
uses Classes, StdCtrls, SysUtils, Dialogs;
 
type
  TMiCombo = class(TComboBox)
    FItems:TStringList; 
  published
    property Items:TStringList read FItems;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  end;

implementation

{ TMiCombo }

constructor TMiCombo.Create(AOwner: TComponent);
begin
  inherited;
  FItems := TStringList.Create;
end;

destructor TMiCombo.Destroy;
var
  i:integer;
begin
  if FItems<>nil then
  for i:= 0 to Self.Items.Count-1 do
    begin
      Items.Objects[i].Free; 
      Items.Objects[i] := nil;
    end;
  inherited Destroy;
end;

end.

Y cuando creo el objeto:

Código Delphi [-]
MiCombo := TMiCombo.Create(Self);
MiCombo.Parent := Self;

Si quito lo que está marcado en rojo... me da el mismo error que en tu código...
Espero que te sirva de pista
Ya nos contarás...

[roman]

Pero tú estás creando un objeto TStrings distinto.

Buscando en los foros de Borland veo que el problema al parecer radica en que los strings de un combobox realmente pertenecen al sistema y para cuando se llama a Destroy, estos items ya no existen. Al no existir, el control intenta crearlos de nuevo, lo cual ya no puede hacer porque el Handle del combo ya no existe.

Vi una solución que al parecer funciona pero habrá que probarla más a fondo. Consiste en definir un manejador para el mensaje WMDestroy y liberar ahí los objetos:

Código Delphi [-]
type
  TCustomComboIData = class(TComboBox)
  private
    procedure WMDestroy(var Msg: TWMDestroy); message WM_DESTROY;
  end;

implementation

procedure TCustomComboIData.WMDestroy(var Msg: TWMDestroy);
begin
  {
    Liberar aquí los objetos
  }

  inherited;
end;

// Saludos

[[Ohcan]]

Empezado por roman

[...]strings de un combobox realmente pertenecen al sistema y para cuando se llama a Destroy, estos items ya no existen[...]

Gracias Roman...
Al recorrer paso a paso depurando me encontraba que Items estaba vacío (en el Destroy)... ahora sabemos porqué

[pelaorb68]

Roman, gracias por tu respuesta, se ve genial la solución, pero te comento que estoy hace poco incursionando en Delphi, por lo tanto, no sé cómo puedo implementar tu ayuda..?????

De todas formas, mil gracias....

[pelaorb68]

Roman, he revisado nuevamente el código que pusiste y me he dado cuenta que me faltó incluir la Unit Messages en el Uses. He compilado y funciona perfectamente, es decir, libera los objetos de todos los controles(RBCombobox) que posea el formulario.

Mil Gracias a ti y a todos los que respondieron a mis dudas......