delphi - TComboBox 'Control has no parent window' in destructor -

-

i'm using delphi xe2. build custom tcombobox can add key/string pairs , handle cleanup in component's destructor.

all if not (csdesigning in componentstate) code omitted brevity.

interface  type   tkeyrec = class(tobject)     key: string;     value: string;   end;    tmycombobox = class(tcombobox)   public     destructor destroy; override;     procedure additempair(const key, value: string);   end;  implementation  destructor tmycombobox.destroy; var i: integer; begin   := 0 self.items.count - 1     self.items.objects[i].free;   self.clear;   inherited; end;  procedure tmycombobox.additempair(const key, value: string); var rec: tkeyrec; begin   rec := tkeyrec.create;   rec.key := key;   rec.value := value;   self.items.addobject(value, rec); end;

when application closes, destructor called, items.count property inaccessible because tcombobox must have parent control access property. time destructor called, no longer has parent control.

i saw problem once before , had store objects in separate tlist , free them separately. worked because order added them tlist same strings added combo box. when user selected string, use combo box index find correlating object in tlist. if combo box sorted, indexes won't match, can't use solution.

has else seen this? how did workaround issue? nice able free objects in component's destructor!

you can override function getitemsclass:

function getitemsclass: tcustomcomboboxstringsclass; override;

it called combo create items (by default tcomboboxstrings probably). can create own tcomboboxstrings descendant, example tcomboboxstringobjects, can free object linked item (when item deleted).


Comments

Post a Comment

Popular posts from this blog

java - Run a .jar on Heroku -

-
i trying run .jar file on heroku, , can't find instructions anywhere on how this. have read wants me compile uploading heroku. possible, , if is, how this? if helps, trying run minecraft craftbukkit server, , don't have pom.xml file yet. you didn't provide details i'll try give , people reaches question way it. first of all, create heroku account , create heroku application (assumed have done that). second, need generate application jar , upload heroku. so, open terminal , install heroku cli (assuming unix terminal): $ sudo npm install -g heroku-cli you need have npm , nodejs installed, can check link: https://www.digitalocean.com/community/tutorials/how-to-install-node-js-on-ubuntu-16-04 once done that, can use npm update node version acceptable heroku-cli: $ sudo npm install -g n $ sudo n 7.10.0 and run: $ sudo npm install -g heroku-cli in order deploy jars, need install deploy plugin: $ sudo heroku plugins:install heroku-cli-deploy ...
Read more

java - Jtable duplicate Rows -

-
Image
when add new rows in jtable duplicate rows many times this method update jtable public final void tableaucomande(){ ((defaulttablemodel)tabcommande.getmodel()).getdatavector().clear(); session s=hibernateutil.getsessionfactory().opensession(); criteria cr1= s.createcriteria(commande.class); list <commande> lcs=cr1.list() ; criteria cr2= s.createcriteria(lignecommande.class); list <lignecommande> lck=cr2.list() ; if(lcs.size()!=0 && lck.size()!=0) { (commande lc:lcs) { for(lignecommande lig:lck){ ((defaulttablemodel)tabcommande.getmodel()).addrow(new object[]{ lc.getid_cmd(),lc.getnumcmd(),lc.getdate_cmd(),lc.getclient().getnomprenom(), lig.getproduit().getlib_prd(),lig.getquantite(),lig.getproduit().getid_prd() }); } } // tabcommande.setrowselectioninterval(tabcommande.getrowcount()-1,tabcommande.getrowcount()-1); } } this code add add data rows displaye...
Read more

validation - How to pass paramaters like unix into windows batch file -

-
i need pass various parameters .cmd file unix format file.cmd -configuration=value -source=value -flag but, try this: startlocal @echo off cls setlocal set cmdline=%* set configuration= set source= set badargs= set validation= goto main :splitargs echo splitargs(%*) if "%*" neq "" ( /f "tokens=1,2,* delims== " %%i in ("%*") call :assignkeyvalue %%i %%j & call :splitargs %%k ) goto :eof :assignkeyvalue echo assignkeyvalue(%1, %2) if /i %1==-configuration ( set configuration=%2 ) else if /i %1==-source ( set source=%2 ) else ( rem append unrecognised [key,value] badargs echo unknown key %1 set badargs=%badargs%[%1, %2] ) goto :eof :validate echo validating set validation=fail if defined configuration ( echo -configuration ok if defined source ( echo -source ok if not defined badargs ( set validation=success ) ) ) goto :eof :main cl...
Read more