Cum să minimalizați o aplicație Delphi în Tava
Unul dintre criteriile pentru funcționalitatea flexibilă a programului este capacitatea de a interacționa cu tava de sistem. Implementarea software-ului de lucru cu tava este complicată și reduce, ca regulă, la următorul algoritm:
1) forma principală a programului este ascunsă, în tava de sistem apare o pictogramă.
2) aplicația urmărește clic pe butonul din dreapta și din stânga al mouse-ului și reacționează la ele fie prin apariția unui meniu pop-up, fie prin alte acțiuni.
În acest articol, vom examina componenta pentru lucrul cu tava de sistem RXTrayIcon. inclus în Biblioteca RX a bibliotecii. Instalând această bibliotecă, veți avea trei bare de instrumente RX (figura 1).
În panoul "Instrumente RX", găsiți componenta RXTrayIcon. special conceput pentru operații cu tava.
Inspectorul de obiecte componente arată astfel:
Setarea proprietății logice Active în True, afișăm pictograma încărcată în dialogul din proprietatea Icon din tavă. Pentru a putea observa producția componentei în timpul fazei de proiectare, proprietatea ShowDesign trebuie să fie setată la True. O componentă poate avea propriul meniu pop-up, care poate fi specificat în proprietatea PopupMenu.
Pentru a descrie modul în care algoritmul descris mai sus este implementat, trebuie să creați un nou proiect în Delphi și să instalați componenta RXTrayIcon pe formular. Buton și meniul pop-up TPopup. Cu ajutorul butonului vom minimiza formularul principal de aplicare în tavă și în tavă va apărea o pictogramă. Când faceți clic dreapta pe un mouse, apare un meniu pop-up care constă dintr-un element "Restore". Dacă selectați acest element din meniu, forma principală a aplicației va fi din nou vizibilă, iar pictograma din tavă va dispărea. Formularul, după instalarea componentelor, va arăta astfel:
În meniu, creați un element numit "Înapoi". Cod, sub formă de handlers 1) butonul "Restrângere" și
2) din elementul de meniu, va arăta astfel:
procedura TForm1.Button1Click (expeditor: TObject);
începe
RxTrayIcon1.Active:=True;
Form1.Hide;
se încheie;
procedura TForm1.BackClick (expeditor: TObject);
începe
Form1.Show;
RxTrayIcon1.Active:=False;
se încheie;
în mânerul butonului "Minimizare" primul rând afișează pictograma din tavă, a doua linie ascunde forma principală a aplicației. În cel de-al doilea manipulator, apare prima dată prima formă a aplicației, cea de-a doua - pictograma este ascunsă de tavă.
Cum se face o pictogramă animată în Tava pentru aplicația Delphi
Pentru a face o pictogramă animată, trebuie să utilizați proprietatea componentei animate. setarea la True. Animația este obținută prin alternarea pictogramelor încărcate în caseta de dialog Proprietăți pictograme. cu intervalul de timp specificat în proprietatea Interval (în milisecunde).
setați proprietatea Interval la intervalul de timp în care fiecare secvență următoare va apărea în fiecare secvență. Și obținem cea mai simplă animație din icoanele noastre din tavă.