اطلاعات TitleBar و پیام Tool Tip Tracking

اعضاء این ساختار :  Member

wparam باید صفر باشد و lparam هم یک نشانگر به ساختار TITLEBARINFOEX ، قبل از ارسال از طریق پیام باید عضو cbSize آن تنظیم شود!

  

                                                                          Dim info As INFOTITLEEX 

(info.cbSize=Len(info

,SendMessage(hwnd, WM_GETTITLEBARINFOEX,0

(info

if (info.rgstate(5) & (STATE_SYSTEM_INVISIBLE  Or STATE_SYSTEM_OFFSCREEN Or 

((STATE_SYSTEM_UNAVAILABLE

return FALSE

ppt->x = info.rgrect(5).left + (info.rgrect(5).right - info.rgrect(5).left) / 2

 ppt->y= info.rgrect(5).top + (info.rgrect(5).bottom - info.rgrect(5).top) / 2

,,SendMessage(g_hwndTT, TTM_TRACKPOSITION, 0

(MAKELPARAM(pt.x, pt.y

---

TTM_TRACKPOSITION 'Sets the position of a tracking tooltip.

TTM_TRACKACTIVATE 'Activates or deactivates a 

.tracking tooltip

(wParam=True/False ,lparam :Pointer to a TOOLINFO structure that identifies the tool to which this message applies. The hwnd and uId members identify the tool, and the cbSize member specifies the size of the 

.structure. All other members are ignored

TTM_SETDELAYTIME=&H403
TTM_TRACKACTIVATE=&H411 TTM_TRACKPOSITION=&H412
TTM_SETTIPBKCOLOR=&H413
TTM_SETTIPTEXTCOLOR=&H414

---

Public Function LoWord(dwValue As Long) As Integer
CopyMemory LoWord, dwValue, 2
End Function

Public Function MAKELONG(wLow As Long, wHigh As

 Long) As Long

*MAKELONG = LoWord(wLow) Or (&H10000

((LoWord(wHigh

End Function

Public Function MAKELPARAM(wLow As Long, wHigh As Long) As Long 'Combines two integers into a long integer

(MAKELPARAM=MAKELONG(wLow, wHigh

End Function

سفارشی سازی رنگ عنوان و باتن ها

Re: Customizing the titlebar color and buttons