, hvordan kan jeg adgang egenskaber af klasser, som ikke gennemføres via bruger klausul, bare at vide at deres navne?,, du nødt til at bruge typinfo enhed.,, simple egenskaber, som tråde og tal, kan findes i:,,,,,, -------------------------------------------------------------, bruger typinfo,,,,, procedure alterprop (et, apropname, under denne konto: string);,, var jeg: heltal,, (c) tcomponent;, begynder, //gennemgå alle komponenter til at finde den rette element, for jeg: = 0 til form1.componentcount-1, begynder, c = form1. komponenter [i];,, hvis (c.name = hanvar), begynder, setpropvalue c, apropname, under denne konto),,,,,,,,,,,,,, -------------------------------------------------------------, nu er der også nogle egenskaber, som skrifttype.hvordan kan jeg nå, de pågældende ejendomme?og her er en løsning på det:,,,, -------------------------------------------------------------, bruger typinfo,,,,, procedure alterfontcolor (hanvar: string. acolor: tcolor);,, var jeg: heltal, c: tcomponent;,, aobj: tobject;, begynder, //gennemgå alle komponenter til at finde den rette element, for jeg: = 0 til form1.componentcount-1, begynder, c = form1. komponenter [i];,, hvis (c.name = hanvar), begynder, aobj: = getobjectprop c,'font);,,, setpropvalue (aobj,'color ", acolor);,,,,,,,,,,, -------------------------------------------------------------,,,, og endelig har de mange indekseret egenskaber som tstrings, eller ting. og nu hvordan jeg når frem til de indekserede egenskaber?,, indekseret egenskaber er oplagret i tcollection objekter.så, du har sat i bås som i følgende funktioner:,,,, -------------------------------------------------------------, bruger typinfo,,,,, procedure alterindexobject (acompname, apropname: string. acaption: string);,, var jeg: heltal, c: tcomponent;,, acollection, aobj: tobject;, begynder, //gennemgå alle komponenter til at finde den rette element, for jeg: = 0 til form1.componentcount-1, begynder, c = form1. komponenter [i];,, hvis (c.name = acompname), begynder, aobj: = getobjectprop c, apropname);,, acollection: = tcollection (aobj). punkter [0], setpropvalue (acollection "post", acaption);,,,,,,,,,,, y---------------------------------------------------,,, der er mange muligheder for at anvende denne funktioner i deres projekter.,, hovedsagelig er nyttig for sprog changings eller hud komponenter. mulighederne er uendelige.,, jeg håber, at min artikel, var en nyttig for dig, kan jeg lide at dele viden med andre entreprenører,.,,, den kodning: -), j ü jørgen sommer,,,,,,,,