
	Kezdőlap Cikkek Tallózó Cikksorozatok Összes cikk Fórum Fórum kezdőlap Archívum Hírlevél Letöltés Állás, munka Webszolgáltatás Megtekintés Aktuális TV műsor TV csatornák listája Könyvek Software Offline évkönyvek Delphi 1999 Delphi 2000 Delphi 2001 Delphi 2002 Delphi 2003 Visual Studio.NET C# 2001 Visual Studio.NET C# 2002 Visual Studio.NET C# 2003 Windows 2001 Windows 2002 Windows 2003 Havilapok Keresés Oldaltérkép Impresszum

Bejelentkezés

E-mail:
Jelszó:

| Regisztráció | Jelszó? |

GroupBox kiegészítése egy CheckBox kapcsolóval

Példaprogram letöltése

13547 bájt

Ebben a példában a GroupBox komponens címsorát helyettesítjük egy CheckBox komponenssel, amellyel a GroupBox-ban található komponenseket engedélyezhetjük, illetve tilthatjuk le.

A mellékelt példaprogram megnyitása előtt a CheckGroupBox.pas-ban lévő komponenst telepítenie kell a Delphi alá.

Az új komponenst a TCustomGroupBox osztályból származtatjuk. A konstruktorban létrehozunk egy CheckBox komponenst, aminek Parent property-jében megadjuk magát a komponenst:

  FCheckBox := TCheckBox.Create(self);
  FCheckBox.Parent:=self;

A Caption property-t úgy adjuk meg, hogy azzal tulajdonképpen a CheckBox komponens Caption property-jét határozzuk meg. A CheckBox komponens méretét viszont aszerint kell változtatni, hogy a szélessége semmiképpen ne legyen nagyobb, illetve kisebb, mint amekkora a Caption felirat megjelenítéséhez szükséges. A méretet a SetCheckBoxWidth eljárás állítja be. A CheckBox a GroupBox komponens Font property-jét fogja használni, ezért a felirat méretének megállapításához ennek Canvas objektumát is felhasználjuk. A vízszintes és függőleges méretet egy TSize típusú változóban kapjuk meg, a lekérdezéshez pedig a GetTextExtentPoint32 eljárást használjuk.

var
  size: TSize;
...
  GetTextExtentPoint32(Canvas.Handle, PChar(Caption), Length(Caption), size);

A CheckBox jelölő négyzetének szélessége 13 pont, és a felirat távolsága ettől 6 pont, tehát ezeket még hozzá kell adni a felirat szélességéhez.
A GroupBox-ban található komponensek Enabled property-jének beállítását az ApplyEnabled eljárás végzi, amit a CheckBox komponens OnClick eseményéhez rendelünk. Az eljárás rekurzívan beolvassa az összes komponenst, és mindegyiknél beállítja az Enabled property-t, kivéve természetesen a saját CheckBox komponensnél.

Cikksorozat

#ID	Kategória	Cikk címe	Sorozat
3916	Windows	A javascript nyelv bemutatása	1. rész
3946	Windows	Javascript változók és operátorok	2. rész
3975	Windows	Kódvezérlés JScript-ben	3. rész
4004	Windows	Függvények és objektumok	4. rész
4036	Windows	Fejlett funkciók a JavaScript nyelvben	5. rész
4066	Windows	Fejlett funkciók a JavaScript nyelvben - folytatás	6. rész
4116	Windows	Reguláris kifejezések	7. rész
4145	Windows	Reguláris kifejezések - folytatás	8. rész

Könyv

Ez a cikk megtalálható ebben a könyvben: Delphi Software Offline 2001 évkönyv 601. 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!