Home » Tipps & Tricks » System » Desktop und Taskleiste » Beim Minimieren den Task aus der Taskleiste entfernen
Beim Minimieren den Task aus der Taskleiste entfernen
Ziel dieses Beispielcodes: Eine normal laufende Anwendung soll beim Minimieren aus der Taskleiste verschwinden und dafür im TNA-Bereich (TNA = Taskbar Notification Area) neben der Uhr erscheinen. Klickt man dort auf das Symbol, erscheint die Anwendung wieder normal in der Taskleiste.Es wird die Komponente TApplicationEvent (Komponentenseite Zusätzlich) benötigt und ihr ein OnMinimize-Ereignis zugeordnet.Die komplette Unit des Hauptfensters sieht anschließend so aus:
unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ShellApi, AppEvnts; const IC_CLICK = WM_APP + 201; type TForm1 = class(TForm) ApplicationEvents1: TApplicationEvents; procedure ApplicationEvents1Minimize(Sender: TObject); private { Private-Deklarationen } procedure Systray(var sMsg: TMessage); message IC_CLICK; public { Public-Deklarationen } end; var Form1: TForm1; NIM : TNotifyIconData; implementation {$R *.DFM} procedure TForm1.Systray(var sMsg: TMessage); begin // Vorgang: Klick auf das Icon neben der Uhr und Anzeige der Anwendung inherited; if (sMsg.LParam = WM_LBUTTONDOWN) then begin Show; Shell_NotifyIcon(NIM_DELETE, @NIM); Application.Restore; //zeigt die Anwendung wieder an end; end; procedure TForm1.ApplicationEvents1Minimize(Sender: TObject); begin //Vorgang: Minimieren der Anwendung, Entfernung des Taskleisteneintrags //und Hinzufügen des Programmicons neben der Uhr Form1.FormStyle:=fsStayOnTop; Hide; with NIM do begin cbSize := SizeOf (nIM); Wnd := Handle; uID := 0; uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP; uCallbackMessage := IC_CLICK; hIcon := Application.Icon.Handle; szTip := 'Test-Programm'; end; Shell_NotifyIcon(NIM_ADD, @NIM); end; end.