Guest Posted February 14, 2011 Share Posted February 14, 2011 Message from: "Dennis Ortiz" Hi Farshard, I can Insert Components in UniScrollBox at Runtime, Example: .. .. .. with TUniLabel(FUniScrollBox.InsertControl(TUniLabel.Create(FUniScrollBox))) do begin Name := 'lbl'+fLblNumStr; end; .. .. .. . Quote Link to comment Share on other sites More sharing options...
Guest Posted February 14, 2011 Author Share Posted February 14, 2011 Message from: "Dennis Ortiz" El 2/14/2011 3:30 PM, Dennis Ortiz escribió: > Hi Farshard, > > I can Insert Components in UniScrollBox at Runtime, > > Example: > > . > . > . > with > TUniLabel(FUniScrollBox.InsertControl(TUniLabel.Create(FUniScrollBox))) > do begin > Name := 'lbl'+fLblNumStr; > end; > > . > . > . In Web Mode . Quote Link to comment Share on other sites More sharing options...
Guest Posted February 14, 2011 Author Share Posted February 14, 2011 Message from: "Dennis Ortiz" El 2/14/2011 3:30 PM, Dennis Ortiz escribió: > Hi Farshard, > > I can Insert Components in UniScrollBox at Runtime, I Can't ... > > Example: > > . > . > . > with > TUniLabel(FUniScrollBox.InsertControl(TUniLabel.Create(FUniScrollBox))) > do begin > Name := 'lbl'+fLblNumStr; > end; > > . > . > . In Web Mode . Quote Link to comment Share on other sites More sharing options...
Guest Posted February 14, 2011 Author Share Posted February 14, 2011 Message from: "Farshad Mohajeri" "Dennis Ortiz" wrote in message news:xHOKW2HzLHA.2160@anaxagvs227... > Hi Farshard, > > I can Insert Components in UniScrollBox at Runtime, > > Example: > > . > . > . > with > TUniLabel(FUniScrollBox.InsertControl(TUniLabel.Create(FUniScrollBox))) do > begin > Name := 'lbl'+fLblNumStr; > end; Owner should be Self not FUniScrollBox try: TUniLabel(FUniScrollBox.InsertControl(TUniLabel.Create(Self))) . Quote Link to comment Share on other sites More sharing options...
Guest Posted February 14, 2011 Author Share Posted February 14, 2011 Message from: "Dennis Ortiz" El 2/14/2011 3:41 PM, Farshad Mohajeri escribió: > "Dennis Ortiz" wrote in message > news:xHOKW2HzLHA.2160@anaxagvs227... >> Hi Farshard, >> >> I can Insert Components in UniScrollBox at Runtime, >> >> Example: >> >> . >> . >> . >> with >> TUniLabel(FUniScrollBox.InsertControl(TUniLabel.Create(FUniScrollBox))) do >> begin >> Name := 'lbl'+fLblNumStr; >> end; > > Owner should be Self not FUniScrollBox > > try: > TUniLabel(FUniScrollBox.InsertControl(TUniLabel.Create(Self))) > > Ok, i need to change my Logic, because wass trying to do this: THLUniScrollDataEntry = class(TObject) private .. Public constructor Create(const ConnectionIDataset : IHighlanderDataset; Const UniGuiScrollBox : TUniScrollbox); Destructor Destroy; override; end; . Quote Link to comment Share on other sites More sharing options...
Guest Posted February 14, 2011 Author Share Posted February 14, 2011 Message from: "Dennis Ortiz" El 2/14/2011 3:56 PM, Dennis Ortiz escribió: > El 2/14/2011 3:41 PM, Farshad Mohajeri escribió: >> "Dennis Ortiz" wrote in message >> news:xHOKW2HzLHA.2160@anaxagvs227... >>> Hi Farshard, >>> >>> I can Insert Components in UniScrollBox at Runtime, >>> >>> Example: >>> >>> . >>> . >>> . >>> with >>> TUniLabel(FUniScrollBox.InsertControl(TUniLabel.Create(FUniScrollBox))) >>> do >>> begin >>> Name := 'lbl'+fLblNumStr; >>> end; >> >> Owner should be Self not FUniScrollBox >> >> try: >> TUniLabel(FUniScrollBox.InsertControl(TUniLabel.Create(Self))) >> >> > Ok, i need to change my Logic, because wass trying to do this: > > THLUniScrollDataEntry = class(TObject) > private > .. > Public > > constructor Create(const ConnectionIDataset : IHighlanderDataset; Const > UniGuiScrollBox : TUniScrollbox); > Destructor Destroy; override; > end; > I was suscessfully do what i need the, but i think allowing these is necesary TUniLabel(FUniScrollBox.InsertControl(TUniLabel.Create(Self))) Rigth now Create a class (type Tobject) that create the dynamic fields but in really the intention is change that to THLUniScrollDataEntry = class(TuniscrollBox) when these option is was available. Rigth now i need to pass a Tuniform Parameter to my constructor to create invisible controls there and change the parent to UniScrollBox and make them visible. constructor Create(const ConnectionIDataset : IHighlanderDataset; Const UniGuiScrollBox : TUniScrollbox, UniForm : tuniForm); Please excuse my poor english . Quote Link to comment Share on other sites More sharing options...
Guest Posted February 15, 2011 Author Share Posted February 15, 2011 Message from: "Farshad Mohajeri" "Dennis Ortiz" wrote in message news:nMUudQIzLHA.2160@anaxagvs227... > El 2/14/2011 3:56 PM, Dennis Ortiz escribió: >> El 2/14/2011 3:41 PM, Farshad Mohajeri escribió: >>> "Dennis Ortiz" wrote in message >>> news:xHOKW2HzLHA.2160@anaxagvs227... >>>> Hi Farshard, >>>> >>>> I can Insert Components in UniScrollBox at Runtime, >>>> >>>> Example: >>>> >>>> . >>>> . >>>> . >>>> with >>>> TUniLabel(FUniScrollBox.InsertControl(TUniLabel.Create(FUniScrollBox))) >>>> do >>>> begin >>>> Name := 'lbl'+fLblNumStr; >>>> end; >>> >>> Owner should be Self not FUniScrollBox >>> >>> try: >>> TUniLabel(FUniScrollBox.InsertControl(TUniLabel.Create(Self))) >>> >>> >> Ok, i need to change my Logic, because wass trying to do this: >> >> THLUniScrollDataEntry = class(TObject) >> private >> .. >> Public >> >> constructor Create(const ConnectionIDataset : IHighlanderDataset; Const >> UniGuiScrollBox : TUniScrollbox); >> Destructor Destroy; override; >> end; >> > I was suscessfully do what i need the, but i think allowing these is > necesary TUniLabel(FUniScrollBox.InsertControl(TUniLabel.Create(Self))) > > Rigth now Create a class (type Tobject) that create the dynamic fields but > in really the intention is change that to THLUniScrollDataEntry = > class(TuniscrollBox) when these option is was available. > > Rigth now i need to pass a Tuniform Parameter to my constructor to create > invisible controls there and change the parent to UniScrollBox and make > them visible. > > constructor Create(const ConnectionIDataset : IHighlanderDataset; Const > UniGuiScrollBox : TUniScrollbox, UniForm : tuniForm); > If I understand correctly you want to create a component but use it later, am I right? But it is not possible in uniGUI. If you create a control at runtime then you must insert and display it in same event. You can't display it later. . Quote Link to comment Share on other sites More sharing options...
Guest Posted February 15, 2011 Author Share Posted February 15, 2011 Message from: "Dennis Ortiz" >>>> news:xHOKW2HzLHA.2160@anaxagvs227... >>>>> Hi Farshard, >>>>> >>>>> I can Insert Components in UniScrollBox at Runtime, >>>>> >>>>> Example: >>>>> >>>>> . >>>>> . >>>>> . >>>>> with >>>>> TUniLabel(FUniScrollBox.InsertControl(TUniLabel.Create(FUniScrollBox))) >>>>> do >>>>> begin >>>>> Name := 'lbl'+fLblNumStr; >>>>> end; >>>> >>>> Owner should be Self not FUniScrollBox >>>> >>>> try: >>>> TUniLabel(FUniScrollBox.InsertControl(TUniLabel.Create(Self))) >>>> >>>> >>> Ok, i need to change my Logic, because wass trying to do this: >>> >>> THLUniScrollDataEntry = class(TObject) >>> private >>> .. >>> Public >>> >>> constructor Create(const ConnectionIDataset : IHighlanderDataset; Const >>> UniGuiScrollBox : TUniScrollbox); >>> Destructor Destroy; override; >>> end; >>> >> I was suscessfully do what i need the, but i think allowing these is >> necesary TUniLabel(FUniScrollBox.InsertControl(TUniLabel.Create(Self))) >> >> Rigth now Create a class (type Tobject) that create the dynamic fields but >> in really the intention is change that to THLUniScrollDataEntry = >> class(TuniscrollBox) when these option is was available. >> >> Rigth now i need to pass a Tuniform Parameter to my constructor to create >> invisible controls there and change the parent to UniScrollBox and make >> them visible. >> >> constructor Create(const ConnectionIDataset : IHighlanderDataset; Const >> UniGuiScrollBox : TUniScrollbox, UniForm : tuniForm); >> > If I understand correctly you want to create a component but use it later, > am I right? Yes, and finally i have it working the way i want, with some minor changes constructor Create(const ConnectionIDataset : IHighlanderDataset; var UniGuiScrollBox : TUniScrollbox; Const This : TWinControl); thanks, . Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.