Lehallgatás osztályok Delphi

Szükséged lesz egy külön rész Delphi, tedd a típus TButton. de ez több tulajdonságok és módszerek, mint a standard gombot? Tapasztalt Delphi fejlesztőknek, amikor szükségük van TSuperBtn komponenst. alkalmazni két megközelítés ezt a problémát: keres készen áll a párt VCL oldatok, vagy létrehozhat saját komponenseket.

Nos, ha nem kell TSuperBtn voltam a komponens palettán, és csak ezt az alkalmazást? Hogyan juthat TButton nagy számú ingatlanok és módszerek, de nem TSuperBtn. És TButton bővíteni képességeit anélkül, hogy hozzon létre egy örökölt osztály egy másik nevet?

Ezt meg lehet tenni, egy olyan kiegészítő osztály, de a helper osztály fogja tartalmazni csak az újonnan hozzáadott tulajdonságok és módszerek.

A legtöbb kezdő nem tudják, hogy hozzon létre saját egyéni vezérlők, a meglévő készlet a VCL, ami egy úgynevezett class Interceptor, amelyet ugyanaz a neve, mint a fő osztály.

Interceptor Delphi osztályok

A fenti kód létrehoz egy hallgató az osztály TButton ellenőrzés. TButton eredeti bejelentett modul StdCtrls VCL könyvtár.

És ami a legfontosabb, az elfogó modul osztályokba kell jelenteni az áthelyezés után a szülő osztály modult.

Példa elfogó osztály TButton = osztály (StdCtrls.TButton)

Itt van az egyik elfogó osztály TButton.

Új Text tulajdonság. amely tárolja a húr, valamint újra a folyamatot Click. amely meg fogja változtatni a gomb címke, valamint elvégezni a fő tevékenysége.

Most helyezzük egy gombot a forma és a hozzá Unit2 modul végén felsorolt ​​modulok a uses. a legfontosabb, hogy ez után StdCtrls.

A forma például azt a következő kód:

Amikor futtatja a programot, és nyomja meg a gombot, a gomb megváltoztatja a címke és formában - a cím.

Felhasználása elfogó osztályok is sok, attól függően, hogy az Ön igényeinek és lehetőségeinek.

Nos, talán ez a legfontosabb témákból. Ha valaki nem tud a lehallgatás az osztályok, majd indítsa el.

Szintén fontos megjegyezni, hogy akkor lehet alkalmazni, hogy ne csak a VCL komponensek, hanem bármely Delphi osztályok.