Și astfel, sarcina numărul 1, când executați programul, în tavă (este aproape de ceas), apare o pictogramă, după închidere, pictograma dispare în consecință. Pentru aceasta, adăugați modulul ShellAPI în blocul Utilizează.
Apoi determină următoarea constantă și variabilă:
const MyTrayIcon = WM_USER + 1;
var NID: TNotifyIconData;
Apoi faceți dublu clic pe formular, intrați în procedura predefinită TForm1.FormCreate și scrieți următorul cod:
cu NID-ul
începe
cbSize: = SizeOf (TNotifyIconData);
Wnd: = Mâner;
uId: = 1;
uFlags: = NIF_ICON sau NIF_MESSAGE sau NIF_TIP;
uCallbackMessage: = MyTrayIcon;
hIcon: = Application.Icon.Handle;
szTip: = 'Indicație de instrument. „;
se încheie;
Shell_NotifyIcon (NIM_ADD, @NID);
Acesta este tot textul necesar pentru a crea o pictogramă în tavă. Acum rămâne să specificați că atunci când închideți aplicația, pictograma trebuie eliminată. Dacă nu faceți acest lucru, pictograma va rămâne până când veți aduce mouse-ul la ea, apoi va dispărea. Cred că ați întâlnit în mod repetat o astfel de greșeală în unele programe. Prin urmare, ceea ce nu ar fi ca, nu programatori exacți, în procedura de închidere a formularului, specificăm doar o singură linie:
Shell_NotifyIcon (NIM_DELETE, @NID); DELETE ICONUL DIN TREI
Bineînțeles, de la faptul că va exista icoana în tavă, sau care este folosirea. Prin urmare, sarcina numărul 2, lucrați cu această tavă foarte.
Vă sugerez să faceți clic, clic dreapta pe această pictogramă pentru a face un meniu pop-up care-totul a fost ca adulti :). Pentru aceasta trebuie să creați acest meniu. În formular, scoateți componenta PopupMenu din fila Standard. Apoi faceți dublu clic pe meniu și obțineți acest meniu. În cazul în care facem clic pe butonul din dreapta, selectați Inserare și meniul nostru este în creștere, până când numărul necesar de puncte, bine, în „Object Inspector“, prevede numele acestor elemente, pictograma, dacă doriți, și, desigur, dublu clic, pentru a primi o rutina, care va fi executat pentru acest element de meniu. Propun să creeze un punct de acolo, „Arată cererea“, iar în procedura de înregistrare Vizibil: = true; deoarece soma pe formular va posta „ascunde“, acțiune care va fi vizibil: = false; Asigurați-vă că ați salvat proiectul, deoarece aplicație ascunsă, nu poate ajunge la închidere, cu excepția faptului că cu Delphi.
Creați procedura, procesați:
TRATAMENTUL MOBIL ÎN TREI
procedura TForm1.TrIcon (var a: TMessage);
var P: TPoint;
începe
caz a.lParam de
WM_LBUTTONDBLCLK:
începe
Configurarea ferestrelor (mâner);
se încheie;
WM_RBUTTONDOWN:
începe
GetCursorPos (P);
PopupMenu1.Popup (P.X, P.Y);
se încheie;
se încheie;
se încheie;
Și să-l înregistrezi
procedura TrIcon (var a: TMessage); mesajul MyTrayIcon;
E un fel de tot. Acum, când aplicația este lansată și pe butonul "Ascunde" se face clic pe formular, aplicația devine invizibilă și când faceți clic dreapta pe pictograma tavă, selectați "Afișați aplicația" și apare din nou.