Rendszermenü kezelő komponens

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

Kell tehát egy komponens, melynek van egy PopupMenu TPopupMenu típusú property-e. Ezen keresztül hozzákapcsolhatunk a komponenshez egy tetszőleges TPopupMenu komponenst. Amikor itt kiválasztunk egyet, akkor fut le a SetPopupMenu eljárás. Ebben az eljárásban fogjuk az új menüpontokat hozzáfűzni a rendszermenühöz, de csak abban az esetben, ha a programunk már fut.

A hozzáfűzéshez először a GetSystemMenu függvénnyel lekérdezzük a rendszermenü azonosítóját, majd egy ciklussal végigmegyünk a kapott TPopupMenu menüpontjain és az AppendMenu-vel hozzáadogatjuk őket. Fontos megjegyezni, hogy a TPopupMenu-ben található menüpontok esetén, csak azok Caption property-ét és az OnClick eseményüket érdemes felhasználnunk, mivel a komponens jelenlegi verziója más tulajdonságokat amúgy sem használ fel.

A komponens létrejöttekor elkapja a Form ablakkezelő eljárását és helyettesíti a sajátjával a NewWndProc-al. Erre azért van szükség, hogy érzékelni tudja a komponens, hogy mikor is választ a felhasználó egy-egy menüpontot a rendszermenüből. Természetesen a dolga végeztével meghívja az eltárolt, eredeti ablakkezelő eljárást, különben az egész program működésképtelenné válna.

Tehát figyelnünk kell, hogy mikor lesz rendszer menüpont kiválasztva. Ekkor a Windows egy a WM_SYSCOMMAND üzenetet generál. Ekkor meghatározzuk, hogy a kiválasztott menüpont melyik a sajátunk közül és ennek meghívjuk a Click eljárását, mely generálni fogja az OnClick eseményt a TPopupMenu adott menüpontjainál, amelyhez már tetszőleges funkciót rendelhetünk.