Einzelnen Beitrag anzeigen

Benutzerbild von toms
toms
(CodeLib-Manager)

Registriert seit: 10. Jun 2002
4.648 Beiträge
 
Delphi XE Professional
 
#44

Re: Tray Icon von fremden Programm verschwinden lassen!

  Alt 10. Mär 2008, 19:10
Zitat von bitsetter:
Zitat von toms:
1. + 2. scheinen keine Wirkung zu haben:
Habe gerade festgestellt wenn das Icon ganz links ist, dass das Verstecken des Button tatsächlich fehlschlägt. Kann sein, dass es unter anderen deshalb bei dir nicht funktionierte, ansonsten geht es aber.
Ach so, darum hat es nicht funktioniert, weil mein Testicon immer ganz links war...

Für was genau sollte dieser Code gut sein?
Die TNA erscheint dann ganz links oben (meine Taskleiste ist links aligned)

Delphi-Quellcode:
if GetWindowRect(hTrayNotify, r) then
 if Windows.GetClientRect(hTrayNotify, r2) then
   if SetWindowPos(hTrayNotify, HWND_TOP,
     r.Left+ 16, r2.Top, r2.Right- 16, r2.Bottom,
     _NOZORDER or SWP_NOACTIVATE or SWP_NOCOPYBITS) then
Thomas
  Mit Zitat antworten Zitat