Pentru a plasa pictograma aplicației în tavă folosind Delphi nu este o sarcină atât de dificilă. Este utilă pentru afișarea meniului, precum și pentru ascunderea aplicației, când există doar o singură pictogramă, cu ajutorul căreia puteți controla aplicația.
Acest lucru ar fi util pentru programele care rulează o perioadă lungă de timp fără nicio interacțiune cu utilizatorul (sarcini de fundal care rulează de obicei pe computer toată ziua).
Puneți pictograma în tavă
Apropo, este destul de ușor să creați o aplicație care începe cu o pictogramă în bara de sistem - pentru îndeplinirea acestei sarcini este necesară o singură funcție a API-ului Shell_NotifyIcon.
Funcția ShellApi este declarată în modul și este nevoie de doi parametri. Primul parametru - un steag care indică faptul că se adaugă pictograma în acest moment sau îndepărtat, iar al doilea parametru este un pointer la o structură TNotifyIconData. care stochează informații despre pictograma (mâner pictograme pentru a afișa textul tooltip atunci când treceți cursorul mouse-ului peste pictograma, un mâner fereastră care va primi mesaje de la o pictogramă și tipul de mesaj pentru a fi trimis la fereastra).
Mai întâi, adăugați ShellApi la secțiunea utilizări a formularului dvs., apoi adăugați următoarele linii:
Apoi, în metoda OnCreate, trebuie să inițializați structura de date TrayIconData și să apelați funcția Shell_NotifyIcon:
Parametrul WND al TrayIconData indică fereastra care va primi mesaje de la pictograma. HIcon indică pictograma care va fi afișată în tavă. În cazul nostru, pictograma aplicației. szTip conține un sfat care va fi afișat când treceți cu mouse-ul peste pictograma cursorului mouse-ului (poate conține până la 64 de caractere). Parametrul uFlags este setat să gestioneze mesajele aplicației.
Dacă executați proiectul acum, veți vedea pictograma aplicației dvs. în tavă, dar nu se întâmplă nimic când faceți clic pe ea cu ajutorul mouse-ului.
Când închideți aplicația, trebuie să scoatem pictograma din tavă:
Și, în sfârșit, pentru a răspunde pictograma noastre la evenimente mouse-ului, precum și un meniu pop-up, trebuie să creați o procedură de manipulare mesaj și se adaugă componenta TPopupMenu pe forma și de a crea elemente de meniu în ea.
Asta-i tot! Rapid și simplu: există un indiciu, există un meniu pop-up, iar pictograma este în tavă.
Trimiteți-le prietenilor: