[DUG] Compnent creation question

[David Moorhouse]

The window handle has probably been destroyed at this stage - hence the
error.

I'm not near my dev box  - so off the top of my head try over riding the
dispatch method for the OnDestroy method and call your code in there.

HTH

D


On Wed, 15 Oct 2008 16:22:44 +1300, you wrote:

>Hi
>
>Just trying to make a TComboBox that automatically frees its items.
>
>I have the following code in the destructor
>
>    if (fAutomaticallyFreeObjects = True)
>            and ((csDesigning in ComponentState) = False) then begin
>        try
>            for Counter := 0 to Self.Items.Count - 1 do begin
>                O := Items.Objects[Counter];
>                if (O <> nil) then begin
>                   O.Free;
>                end;
>            end;
>        except
>            on e: exception do begin
>                ShowMessage(IntToStr(i) + ' ' + 'Attempting to 
>automatically free object memory.  The following error occured...' + 
>#13#13 + e.message);
>            end;
>        end;
>    end;
>
>
>I get a 'Control '' has no parent error.  This happens when attempting 
>to access the .Items property.  My custom error handling does not trigger.
>
>Any suggestions ?
>
>Thanks
>Rob
>_______________________________________________
>NZ Borland Developers Group - Delphi mailing list
>Post: delphi at delphi.org.nz
>Admin: http://delphi.org.nz/mailman/listinfo/delphi
>Unsubscribe: send an email to delphi-request at delphi.org.nz with Subject: unsubscribe