И така, номера на задача 1, когато стартирате програмата в системния трей (до нея го гледате), там е икона, иконата изчезва след затварянето съответно. За да направите това, добавете ShellAPI Използва блок модул
След това определете следните константи и променливи:
конст MyTrayIcon = WM_USER + 1;
Var NID: TNotifyIconData;
На следващо място, кликнете два пъти върху формата, в която се намираме в предварително определена процедура за TForm1.FormCreate и да предпише където следния код:
с NID правя
започвам
cbSize: = SizeOf (TNotifyIconData);
Вятърни: = дръжка;
UID: = 1;
uFlags: = NIF_ICON или NIF_MESSAGE или NIF_TIP;
uCallbackMessage: = MyTrayIcon;
HICON: = Application.Icon.Handle;
szTip: = "подсказка. ";
приключи;
Shell_NotifyIcon (NIM_ADD, @NID);
Всичко това е текст изисква, за да може да се създаде форма, ще се появи иконата в лентата. Сега е необходимо да се отбележи, че при затваряне на приложението, иконата трябва да бъдат отстранени. Ако това не бъде направено, иконата ще остане, докато задържите курсора на мишката върху него и след това изчезват. Мисля, че на няколко пъти се сблъскат с тази грешка в някои програми. Поради това, че не би било подобно, а не чисти програмисти, в затворен процес на мухъл, посочете само един ред:
Shell_NotifyIcon (NIM_DELETE, @NID); // премахване на иконата от тавата
Разбира се, от факта, че тавата е значката си, нито който и да е смисъл. Следователно, броят на задачите 2, работи с този най-Трей.
Предлагам ви да кликнете с десния бутон на мишката върху иконата, за да се направи изскачащо меню, че-всичко беше като възрастни :). За това ние трябва да се създаде, е един и същ екран. Формата на компонент от сключване на PopupMenu Стандартни отметки. След това кликнете два пъти върху менюто, и да получите това меню нещо. Къде сме щракнете с десния бутон, изберете Вмъкни и нашето меню се разраства, докато необходимият брой точки, добре, в "обект инспектор", предписва на името на тези елементи, иконата, ако искате, и разбира щракнете два пъти, получи рутина, която ще бъде изпълнена за това елемент от менюто. Аз предлагам да се създаде точка там "Покажи прилагането", както и в процедурата за регистриране на Видима: = вярно; защото сома във формуляра ще публикуваме на "Hide", което действие, ще бъдат видими: = неверни; Не забравяйте да запазите проекта, като Скрити приложение не може да бъде в състояние да се затвори, може би заедно с Делфи.
Създаване, процедурата:
// обработка мишка в системната
процедура TForm1.TrIcon (Var на: TMessage);
Var P: TPoint;
започвам
При a.lParam на
WM_LBUTTONDBLCLK:
започвам
SetForegroundWindow (дръжката);
приключи;
WM_RBUTTONDOWN:
започвам
GetCursorPos (Р);
PopupMenu1.Popup (P.X, P.Y);
приключи;
приключи;
приключи;
И това се регистрирате в
процедура Tricon (Var на: TMessage); MyTrayIcon съобщение;
Това е всичко. Сега, когато приложението и кликнете върху бутона старт "Hide", приложението да стане невидим, а когато щракнете с десния бутон върху иконата в системния трей, изберете "Покажи заявление" и се появява отново.
Свързани статии