normally it implies that registerclass has not been used on that class in the application. to double check, use tstream.writecomponent and see if it works without error. then do a readcomponent to see if it can look up the class info properly
On Mon, Jul 16, 2012 at 12:41 PM, David O'Brien <[email protected]> wrote: > Very frustrating, I'm getting "Class TButton not Found" with the below > code. Everything in the uses clause is correct: I have a Tbutton on the > form at design time. The form is in a .bpl if that will make a > difference? > > // Simplified... > Uses ..., StdCtrls, ... > Var > o: TComponent ; > ot: String ; > begin > ot := 'TButton' ; > o := TComponentClass(FindClass(ot)).Create(nil); <--- Class > TButton Not Found > end ; > > -----Original Message----- > From: [email protected] > [mailto:[email protected]] On Behalf Of Todd Martin > Sent: Friday, 13 July 2012 4:27 p.m. > To: NZ Borland Developers Group - Delphi List > Subject: Re: [DUG] Creating an object at run time. > > b := TComponentClass(FindClass('TButton')).Create(nil); > propinfo := GetPropInfo(b.classinfo,'left'); SetOrdProp(b,propinfo,100); > > > I want to create an object at runtime given a string with the object > type. Is this possible or do I need to do a whole pile of if then > else's? There is a limited number of different objects that need to be > created. I then want to access the created objects properties by name > and assign methods. > > > > This is not for oleobjects, but VCL controls. > > > > i.e. > > b := CreateObject('TButton') ; > > b.GetField('left') := 100 ; > > ... > > > > Help on any of these would be appreciated. > > > > Cheers, > > Dave. > > > > > > _______________________________________________ > > NZ Borland Developers Group - Delphi mailing list > > Post: [email protected] > > Admin: http://delphi.org.nz/mailman/listinfo/delphi > > Unsubscribe: send an email to [email protected] > > with Subject: unsubscribe > > > _______________________________________________ > NZ Borland Developers Group - Delphi mailing list > Post: [email protected] > Admin: http://delphi.org.nz/mailman/listinfo/delphi > Unsubscribe: send an email to [email protected] with > Subject: unsubscribe > > _______________________________________________ > NZ Borland Developers Group - Delphi mailing list > Post: [email protected] > Admin: http://delphi.org.nz/mailman/listinfo/delphi > Unsubscribe: send an email to [email protected] with > Subject: unsubscribe > -- Kyley Harris Harris Software +64-21-671-821
_______________________________________________ NZ Borland Developers Group - Delphi mailing list Post: [email protected] Admin: http://delphi.org.nz/mailman/listinfo/delphi Unsubscribe: send an email to [email protected] with Subject: unsubscribe
