Wie kann man sein Programm in die Taskleiste schieben?

[flyingthai]

Wie kann man sein Programm in die Taskleiste schieben?

Ich habe des öfteren gesehen, dass bei manchen, wenn man das Programm minimiert, ihr Programm in der Taskleiste verschwindet. Ich würde gerne wissen, wie das geht

[Meflin]

dazu gibts hier schon genung threads
Anwendung in den tna
oder gleich ganz:

Delphi-Quellcode:

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.

[flyingthai]

Vielen Dank!

Ich habe schon die Suche benutzt, aber wohl die falschen Begriffe benutzt (Taskplaner). Trotzdem noch mal danke für die schnelle Antwort

[Neuni]

Siehe auch Delphi für Newbies/Einsteiger

[Luckie]

Taskleiste <> TNA.

[flyingthai]

Sooo. Habe das mal ausprobiert

Habe zwar mehrere Anläufe gebraucht , aber es hat funktioniert, das Programm in die TNA zu schieben.

Jetzt habe ich nur ein Problem. - Wenn ich das Icon anklicke, wird die Anwendung nicht angezeigt. Weiß jemand, was ich falsch gemacht habe?

[Muetze1]

Moin!

Auf meiner Homepage findest du ansonsten ein komplett fertiges Projekt was das schon komplett kann - du kannst dieses Projekt dann einfach um deinen anderen Programmcode erweitern.

MfG
Muetze1

[dizzy]

Das musst du schon selber einbauen. Es gibt keine Standardoperationen für Ereignisse auf den TNA-Icons. In der Suche hier sollte sich einiges dazu finden lassen. Und auf www.delphi-treff.de gibt es genau dazu einen netten Tipp

[flyingthai]

Wie sieht es eigentlich aus, wenn ich den "Desktop anzeigen" will?

[Tubos]

Bitte mache einen neuen Thread auf, wenn du eine neue Frage hast.