Beim Minimieren den Task aus der Taskleiste entfernen |
|
| System | Win9x, WinNT, Win2000, WinXP, Vista, Win7 |
|---|---|
| Ab Delphi-Version | Delphi 1 |
| Letzte Änderung | 28.09.2010 |
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.
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.
Ähnliche Seiten: