Programm minimieren und Icon in Infobereich ablegen

[Svenkan]

Hey Leute!
Habt ihr zufällig ein kleines Tutorial, wie man es bewerkstelligen kann, dass wenn man ein Programm minimiert, dass Symbol in den Infobereich gelegt und der Taskbareintrag entfernt wird?

[mkinzler]

Dafür gibt es Komponenten, wie z.B. CoolTray

[bitsetter]

Hi,

zumindest Code gibt es hier.
EDIT:
Ein Tutorial gibt es ansonsten hier.

[Svenkan]

Dankeschön schonmal!
Bin grad am Downloaden von CoolTray.

[Svenkan]

Delphi-Quellcode:

procedure TForm2.WMTaskbarEvent(var Message: TMessage); 
var 
  Point: TPoint; 
begin 
  case Message.LParamLo of 
     WM_LBUTTONDOWN: TaskBarRemoveIcon; 
     WM_RBUTTONDOWN: begin 
                          SetForegroundWindow(Handle); 
                          GetCursorPos(point);
                          popupmenu1.popup(point.x,point.y); 
                     end; 
  end; 
end;

An dieser Stelle soll bei Rechtsklick ein PopUp-Menü aufgerufen werden. Leider funktioniert das genauso wenig wie das Entfernen des Icons per Linksklick.
Es passiert einfach gar nichts. Sprich: ich muss das Programm per Taskmanager beenden, da ich es nicht mehr maximieren kann.

[bitsetter]

Hi,

der Code aus der Code-Lib funktioniert doch auch:

EDIT: Der Code ist wohl aus dem Tutorial, das Projekt hänge ich auch noch an.

[Svenkan]

Perfekt!
Das funktioniert ohne Probleme!
Dankeschön!

[bitsetter]

Das Projekt vom Tutorial woher anscheinend der Quellcode war, habe ich nun auch noch angehängt, falls es dich noch interessiert. Wenn man sich das Tutorial richtig durchliest, dann funktioniert auch alles.

[Svenkan]

Komisch..
Also ich habs mir bestimmt 5-6 Mal durchgelesen und bekam immer dasselbe Ergebnis. Nämlich nix. :/
Aber danke! Jetzt klappts ja alles wunderbar.