|
|
Valós számok bevitelét lehetővé tevő TEdit komponens
|
|
Példaprogram letöltése
9480 bájt
|
A Delphi-ben nem találunk olyan komponenst, amely kifejezetten számok, mégpedig valós számok bevitelére készült volna. Ebben a példában egy speciális TEdit komponenst készítünk, amelybe nem szöveget, hanem számot adhatunk meg.
|
A mellékelt példaprogram megnyitása előtt a FloatEdit.pas-ban lévő komponenst telepítenie kell a Delphi alá.
Az új komponenst a TCustomEdit osztályból származtatjuk. A Text is a MaxLength property-t nem tesszük publikussá, a Text helyett a Value property-t fogjuk használni. A Measure property-ben megadhatunk egy tetszőleges szöveget, ami a szám mögött jelenik meg (pl. „Ft”). A Precision property-ben megadhatjuk a tizedes jegyek számát, a komponens ennek megfelelően fogja kerekíteni a beírt értéket. Létrehozunk egy Aligment nevű property-t is, amiben a szám igazítását adhatjuk meg (balra, jobbra, illetve középre). Ha a ThousandSeparator property-nek igaz értéket adunk, akkor a szám megjelenítésekor az ezres csoportosítást is figyelembe veszi.
A feladat megoldásához a Change, DoEnter és DoExit eljárásokat írjuk felül. A Change eljárásban figyeljük, hogy a felhasználó ne adhasson meg érvénytelen karaktereket (például betűket). A GetFloatStr függvény a paraméterként megadott sztringből (ami itt a Text property lesz) törli az érvénytelen karaktereket. Ha nem a komponens az aktív (Focused), akkor a Text property-be beírjuk a megadott értéket a property-knek megfelelő formátumban.
A DoEnter eljárásban csak annyit teszünk, hogy ellenőrizzük az AutoSelecft property értékét, és ha igaz, akkor kijelöljük a teljes szöveget.
A DoExit eljárásban meghívjuk a Change eljárást. A DoExit akkor fut le, amikor a komponens elveszíti a fókuszt, tehát a Change eljárás meghívásával azt érjük el, hogy az érték a megfelelő formátumban jelenik meg a komponensben.
|
Könyv
Ez a cikk megtalálható ebben a könyvben:
Delphi Software Offline 2001 évkönyv 574. oldal
Felhasználási feltételek
A Software Online szoftverfejlesztői magazin mindegyik cikke, minden megjelent képe, és egyéb publikált anyaga szerzői jog védelme alatt áll! Bármilyen formában történő másodlagos terjesztésük, közzétételük vagy felhasználásuk kizárólag a kiadó előzetes írásbeli engedélyével történhet!
|