[DUG] Compnent creation question

[Robert martin]

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@delphi.org.nz
Admin: http://delphi.org.nz/mailman/listinfo/delphi
Unsubscribe: send an email to [EMAIL PROTECTED] with Subject: unsubscribe