AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Win32/Win64 API (native code) Delphi Wie kann man sein Programm in die Taskleiste schieben?
Thema durchsuchen
Ansicht
Themen-Optionen

Wie kann man sein Programm in die Taskleiste schieben?

Ein Thema von flyingthai · begonnen am 1. Jun 2004 · letzter Beitrag vom 28. Nov 2004
Antwort Antwort
Seite 1 von 2  1 2      
Benutzerbild von flyingthai
flyingthai

Registriert seit: 11. Okt 2003
23 Beiträge
 
#1

Wie kann man sein Programm in die Taskleiste schieben?

  Alt 1. Jun 2004, 17:46
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
es grüßt euch

flyingthai
  Mit Zitat antworten Zitat
Benutzerbild von Meflin
Meflin

Registriert seit: 21. Aug 2003
4.856 Beiträge
 
#2

Re: Wie kann man sein Programm in die Taskleiste schieben?

  Alt 1. Jun 2004, 17:47
dazu gibts hier schon genung threads
Hier im Forum suchenAnwendung 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.
  Mit Zitat antworten Zitat
Benutzerbild von flyingthai
flyingthai

Registriert seit: 11. Okt 2003
23 Beiträge
 
#3

Re: Wie kann man sein Programm in die Taskleiste schieben?

  Alt 1. Jun 2004, 17:50
Vielen Dank!

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

flyingthai
  Mit Zitat antworten Zitat
Neuni

Registriert seit: 25. Feb 2004
815 Beiträge
 
Delphi 7 Personal
 
#4

Re: Wie kann man sein Programm in die Taskleiste schieben?

  Alt 1. Jun 2004, 17:59
Siehe auch Delphi für Newbies/Einsteiger
  Mit Zitat antworten Zitat
Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#5

Re: Wie kann man sein Programm in die Taskleiste schieben?

  Alt 2. Jun 2004, 14:20
Taskleiste <> TNA.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat
Benutzerbild von flyingthai
flyingthai

Registriert seit: 11. Okt 2003
23 Beiträge
 
#6

Re: Wie kann man sein Programm in die Taskleiste schieben?

  Alt 10. Jun 2004, 14:26
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?
es grüßt euch

flyingthai
  Mit Zitat antworten Zitat
Muetze1
(Gast)

n/a Beiträge
 
#7

Re: Wie kann man sein Programm in die Taskleiste schieben?

  Alt 10. Jun 2004, 14:59
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
  Mit Zitat antworten Zitat
Benutzerbild von dizzy
dizzy

Registriert seit: 26. Nov 2003
Ort: Lünen
1.932 Beiträge
 
Delphi 7 Enterprise
 
#8

Re: Wie kann man sein Programm in die Taskleiste schieben?

  Alt 10. Jun 2004, 15:06
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
Fabian K.
INSERT INTO HandVonFreundin SELECT * FROM Himmel
  Mit Zitat antworten Zitat
Benutzerbild von flyingthai
flyingthai

Registriert seit: 11. Okt 2003
23 Beiträge
 
#9

Re: Wie kann man sein Programm in die Taskleiste schieben?

  Alt 28. Nov 2004, 18:29
Wie sieht es eigentlich aus, wenn ich den "Desktop anzeigen" will?
es grüßt euch

flyingthai
  Mit Zitat antworten Zitat
Tubos

Registriert seit: 25. Feb 2004
Ort: Yspertal (Niederösterreich)
1.014 Beiträge
 
Delphi 7 Personal
 
#10

Re: Wie kann man sein Programm in die Taskleiste schieben?

  Alt 28. Nov 2004, 20:24
Bitte mache einen neuen Thread auf, wenn du eine neue Frage hast.
Lukas
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 08:33 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz