Delphi források, a cikket -, hogy saját gombokat Delphi
Mi most az üzletet. Tegyük fel, hogy a projekt, amelyhez létre egy gombot, már meg van nyitva. Először hozzon létre egy új modult (File \ New \ Unit). Nézzük csak tartsa a készüléket (a Ctrl + Shift + S) néven MyButtonUnit. A modulban látunk két részből áll: felület és végrehajtását. Az első szakaszban, akkor írja le a plug-in modulok, adattípusok, eljárások, állandók és a változók, és a második lesz a kódját.
Miután a felület leírására modulokat, hogy szükségünk van. Úgy néz ki, mint ez:
felület
osztályokat használ, vezérlők, a Windows, a grafika, az Üzenetek,
Ezután azt kell leírni minket létre egy új osztályt (TMyButton), amelynek alapja TCustomControl osztály fogja megállapítani.
Látod három részre mi osztály: saját, védett, és a nyilvánosság. Az első leírja a változók és eljárások, amelyek használatba csak az osztályon belül. A védett rész leírja az alkalmazott módszerek a szülő osztályban. Végül a harmadik szakasz ismerteti azokat a funkciókat és eljárásokat, amely elérhető lesz ezen kívül az osztály.
Kezdjük a nyilvánosság számára.
Bemutatjuk a kivitelező: konstruktor létrehozása (AOwner: TComponent);
Mi jár a végrehajtási szakaszban, és kódot írni, hogy futni fog, ha létrehoz egy gombot.
Hoztam egy kötelező része a kódot. Azt is hozzá kell, ha szükséges.
Most van itt az ideje gondolkodni, hogyan kell dolgozni a gombot. A legfontosabb az, hogy változik a kép, ha lebeg felette. Ennek tartalmaznia kell a felirat. Ez a minimális! Ha a gombot nem változtatja meg, ha lebeg felette, a privát fejezetben a változó FSelected. logikai; a tárolási állapotban a gombot. Engedje meg a gombot később. Ugyanebben fejezetben a változó FCaption. String;, amely megtartja a gomb felirata. Ahhoz, hogy jelentkezni lehet változtatni leírni az ingatlan Képaláírás: String olvasni FCaption írási SetCaption; rész nyilvános. Mint látható, SetCaption eljárás még nem hozott létre. Bemutatjuk azt a részben magán:
eljárás SetCaption (Val: String);
és természetesen jön létre maga a kód:
festék eljárás azt a rajz egy gombot, amely most viszont. Her, leírjuk a védett szakasz - eljárás festék; felülbírálhatja;.
Azonnal írja be a kódot:
Ügyeljen arra, hogy ezt az állapotot. Biztosítjuk a különböző tervezési lehetőségeket, amikor kiosztott és fel nem osztott gombra. Hogyan működik a grafikus, azt hiszem, tudod, hogy nagyon könnyen személyre szabhatja a saját.
És most a szórakoztató rész: hogyan lehet a gombokat változtatni megjelenését, ha mozog?
Bemutatjuk szerinti két eljárás magán:
eljárás MAdja (var Mes: TMessage); Üzenet CM_MOUSEENTER;
eljárás MLeave (var Mes: TMessage); Üzenet CM_MOUSELEAVE;
Eljárások reagál az egér bemenő és kimenő üzeneteket a gomb található. Az első -, hogy adja meg az üzenetet, és a második - a kimeneti üzenetet. És itt van a kód, amely okoznak.
Mint látható, egyszerűen rámutatni, kiemelt vagy nem kiemelt gomb és dolgozza át azt.
Finom befejeződött a feladat, de hogyan kell végrehajtani egy gombot az app? Nagyon egyszerű! Meg kell leírni a modul hoztuk létre a kívánt helyre, majd kattintson a létrehozása és leírni, mint egy változó (var B. TMyButton;) létrehozása (B: = TMyButton.Create (self)), és állítsa be a mezőbe (B.Caption: = ' gomb „).
Általánosságban:
Most már tudja, hogyan kell létrehozni a saját ellenőrzéseik és tud dolgozni a tervezési program. Sok szerencsét!
A forráskód a modul: