Elhelyez egy ikon a tálcán, és használja azt, a klub a programozók
És így a feladat az 1. számú, amikor futtatja a programot a tálcán (mellette nézni), van egy ikon, az ikon eltűnik zárás után volt. Ehhez hozzá ShellAPI használ blokk modul
Ezután adjuk meg a következő állandók és változók:
const MyTrayIcon = WM_USER + 1;
var NID: TNotifyIconData;
Ezután duplán kattintva formában találjuk magunkat, egy előre meghatározott TForm1.FormCreate eljárás és írja elő, ha az alábbi kódot:
A NID do
kezdődik
cbSize: = sizeof (TNotifyIconData);
Szél: = Fogantyú;
uid: = 1;
uFlags: = NIF_ICON vagy NIF_MESSAGE vagy NIF_TIP;
uCallbackMessage: = MyTrayIcon;
HICON: = Application.Icon.Handle;
szTip: = „eszközleírás. „
végén;
Shell_NotifyIcon (NIM_ADD, @NID);
Minden szöveg szükséges ahhoz, hogy hozna létre egy űrlapot, a tálca ikon jelenik meg. Most azt kell kiemelni, hogy amikor bezárja az alkalmazást, az ikonja el kell távolítani. Ha ez nem történik meg, az ikon marad, amíg meg nem húzza az egeret, akkor eltűnik. Azt hiszem többször szembesülnek a hiba bizonyos programokban. Ezért nem lenne hasonló, nem tiszta programozók, egy zárt formában folyamat adja csak egy sort:
Shell_NotifyIcon (NIM_DELETE, @NID); // eltávolítani az ikont a tálcán
Természetesen az a tény, hogy a tálca a jelvény, sem értelme. Ezért a feladat a 2. számú, dolgozni ezzel a legtöbb Trey.
Azt javaslom, kattintson a jobb gombbal az ikonra, hogy a pop-up menü-mindent, mint a felnőttek :). Ehhez létre kell hoznunk az ugyanazon a képernyőn. Az alak a komponenst a kivenni PopupMenu standard könyvjelzőket. Ezután duplán kattintson a menüben, és hogy ezt a dolgot menüt. Ahol mi kattintson a jobb gombbal, és válasszuk a Beszúrás és Étlapunkon növekszik, amíg a szükséges számú pontot, nos, a „Object Inspector”, írja a nevét ezeket a tételeket, az ikon, ha azt szeretné, és persze dupla kattintással, hogy egy rutin, hogy végrehajtásra kerül erre menüpontot. Azt javaslom, hogy hozzon létre egy pont ott, „Itt az alkalmazás, és az eljárás regisztrálni Látható: = true; mert soma az űrlap postázza a „Hide”, amely akció lesz látható: = false; Feltétlenül őrizze meg a projekt, mivel Rejtett alkalmazás nem lehet tudni, hogy szoros, talán együtt Delphi.
Create, eljárás:
// egér kezelése a tálcán
eljárás TForm1.TrIcon (var a: TMessage);
var P: TPoint;
kezdődik
esetében a.lParam a
WM_LBUTTONDBLCLK:
kezdődik
SetForegroundWindow (fogantyú);
végén;
WM_RBUTTONDOWN:
kezdődik
GetCursorPos (P);
PopupMenu1.Popup (P.X, P.Y);
végén;
végén;
végén;
És regisztrálja azt a
eljárás tricon (var a: TMessage); Üzenet MyTrayIcon;
Ez minden. Most, amikor az alkalmazást, és kattintson a gombra kezdeni „Hide”, az alkalmazás, hogy láthatatlanná válik, és amikor a jobb gombbal az ikonra a tálcán, válassza a „Show alkalmazás” és ismét megjelenik.