求解GetProp函数

Question

GetProp(Handle, MakeIntAtom(ControlAtom));
请问各位前辈这个函数的原理是什么呢？
MakeIntAtom这个函数是作什么用的?
谢谢！

Answer 1

'Example Name: Setting a Command Button's ForeColor'------------------------------------------------------------------------------'BAS Module Code 
'------------------------------------------------------------------------------
Option Explicit
Private colButtons  As New Collection
Private Const KeyConst = "K"
Private Const PROP_COLOR = "SMDColor"
Private Const PROP_HWNDPARENT = "SMDhWndParent"
Private Const PROP_LPWNDPROC = "SMDlpWndProc"
Private Const GWL_WNDPROC As Long = (-4)
Private Const ODA_SELECT As Long = &H2
Private Const ODS_SELECTED As Long = &H1
Private Const ODS_FOCUS As Long = &H10
Private Const ODS_BUTTONDOWN As Long = ODS_FOCUS Or ODS_SELECTED
Private Const WM_DESTROY As Long = &H2
Private Const WM_DRAWITEM As Long = &H2BPrivate Type RECT
   Left        As Long
   Top         As Long
   Right       As Long
   Bottom      As Long
End TypePrivate Type SIZE
   cx          As Long
   cy          As Long
End TypePrivate Type DRAWITEMSTRUCT
   CtlType     As Long
   CtlID       As Long
   itemID      As Long
   itemAction  As Long
   itemState   As Long
   hWndItem    As Long
   hDC         As Long
   rcItem      As RECT
   itemData    As Long
End TypePrivate Declare Function CallWindowProc Lib "user32" _
    Alias "CallWindowProcA" _
   (ByVal lpPrevWndFunc As Long, _
    ByVal hWnd As Long, _
    ByVal msg As Long, _
    ByVal wParam As Long, _
    lParam As DRAWITEMSTRUCT) As LongPrivate Declare Function GetParent Lib "user32" _
    (ByVal hWnd As Long) As LongPrivate Declare Function GetProp Lib "user32" _
    Alias "GetPropA" _
   (ByVal hWnd As Long, _
    ByVal lpString As String) As LongPrivate Declare Function GetTextExtentPoint32 Lib "gdi32" _
    Alias "GetTextExtentPoint32A" _
   (ByVal hDC As Long, _
    ByVal lpSz As String, _
    ByVal cbString As Long, _
    lpSize As SIZE) As LongPrivate Declare Function RemoveProp Lib "user32" _
    Alias "RemovePropA" _
   (ByVal hWnd As Long, _
    ByVal lpString As String) As LongPrivate Declare Function SetProp Lib "user32" _
    Alias "SetPropA" _
   (ByVal hWnd As Long, _
    ByVal lpString As String, _
    ByVal hData As Long) As LongPrivate Declare Function SetTextColor Lib "gdi32" _
    (ByVal hDC As Long, _
    ByVal crColor As Long) As LongPrivate Declare Function SetWindowLong Lib "user32" _
    Alias "SetWindowLongA" _
   (ByVal hWnd As Long, _
    ByVal nIndex As Long, _
    ByVal dwNewLong As Long) As LongPrivate Declare Function TextOut Lib "gdi32" _
    Alias "TextOutA" _
   (ByVal hDC As Long, _
    ByVal x As Long, _
    ByVal y As Long, _
    ByVal lpString As String, _
    ByVal nCount As Long) As Long
Private Function FindButton(sKey As String) As Boolean   Dim Command1Button As CommandButton
   
   On Error Resume Next
   Set Command1Button = colButtons.Item(sKey)
   FindButton = (Err.Number = 0)End Function
Private Function GetKey(hWnd As Long) As String   GetKey = KeyConst & hWndEnd Function
Private Function ProcessButton(ByVal hWnd As Long, 
                               ByVal uMsg As Long, _
                               ByVal wParam As Long, _
                               lParam As DRAWITEMSTRUCT, _
                               sKey As String) As Long   Dim Command1Button       As CommandButton
   Dim bRC             As Boolean
   Dim lRC             As Long
   Dim x               As Long
   Dim y               As Long
   Dim lpWndProC       As Long
   Dim lButtonWidth    As Long
   Dim lButtonHeight   As Long
   Dim lPrevColor      As Long
   Dim lColor          As Long
   Dim TextSize        As SIZE
   Dim sCaption        As String
   
   Const PushOffset = 2
   
   Set Command1Button = colButtons.Item(sKey)
   sCaption = Command1Button.Caption
   
   lColor = GetProp(Command1Button.hWnd, PROP_COLOR)
   lPrevColor = SetTextColor(lParam.hDC, lColor)
   
  'In Pixels/Logical Units
   lRC = GetTextExtentPoint32(lParam.hDC, _
   sCaption, Len(sCaption), TextSize)
   
  'In Pixels/Logical Units
   lButtonHeight = lParam.rcItem.Bottom - lParam.rcItem.Top
   lButtonWidth = lParam.rcItem.Right - lParam.rcItem.Left
   
  'The button is pressed! Offset the text
  'so it looks like the button is pushed
   If (lParam.itemAction = ODA_SELECT) And _
      (lParam.itemState = ODS_BUTTONDOWN) Then
      Command1Button.SetFocus
      DoEvents
      x = (lButtonWidth - TextSize.cx + PushOffset) \ 2
      y = (lButtonHeight - TextSize.cy + PushOffset) \ 2
   Else
      x = (lButtonWidth - TextSize.cx) \ 2
      y = (lButtonHeight - TextSize.cy) \ 2
   End If
   
  'Get the default WndProd address
   lpWndProC = GetProp(hWnd, PROP_LPWNDPROC)
   
  'Do the default button processing
   ProcessButton = CallWindowProc(lpWndProC, hWnd, uMsg, wParam, lParam)
   
  'Put our text on the button
   bRC = TextOut(lParam.hDC, x, y, sCaption, Len(sCaption))
   
  'Restore the device context to the original color
   lRC = SetTextColor(lParam.hDC, lPrevColor)
   
ProcessButton_Exit:
   Set Command1Button = NothingEnd Function
Private Sub RemoveForm(hWndParent As Long)   Dim hWndButton As Long
   Dim i As Integer
   
   UnsubclassForm hWndParent
   
   On Error GoTo RemoveForm_Exit
   
   For i = colButtons.Count - 1 To 0 Step -1
   
      hWndButton = colButtons(i).hWnd
      
      If GetProp(hWndButton, PROP_HWNDPARENT) = hWndParent Then
         RemoveProp hWndButton, PROP_COLOR
         RemoveProp hWndButton, PROP_HWNDPARENT
         colButtons.Remove i
      End If
      
   Next i
   
RemoveForm_Exit:
   Exit SubEnd Sub
Private Function UnsubclassForm(hWnd As Long) As Boolean   Dim lpWndProC As Long
   
   lpWndProC = GetProp(hWnd, PROP_LPWNDPROC)
   
   If lpWndProC = 0 Then
   
      UnsubclassForm = False
      
   Else
   
      Call SetWindowLong(hWnd, GWL_WNDPROC, lpWndProC)
      RemoveProp hWnd, PROP_LPWNDPROC
      UnsubclassForm = True
      
   End IfEnd Function
Private Function ButtonColorProc(ByVal hWnd As Long, _
                                 ByVal uMsg As Long, _
                                 ByVal wParam As Long, _
                                 lParam As DRAWITEMSTRUCT) As Long   Dim lpWndProC       As Long
   Dim bProcessButton  As Boolean
   Dim sButtonKey      As String   bProcessButton = False      'Assume default processing   If (uMsg = WM_DRAWITEM) Then
   
     'Do we have this button? To find out, just
     'try to reference the item in the collection.
     'If it's there, we own the button.  If it's
     'not there, we'll get an error.
      sButtonKey = GetKey(lParam.hWndItem)
      bProcessButton = FindButton(sButtonKey)
   
   End If
   
   
   If bProcessButton Then
   
      ProcessButton hWnd, uMsg, wParam, lParam, sButtonKey
      
   Else
   
      lpWndProC = GetProp(hWnd, PROP_LPWNDPROC)
      ButtonColorProc = CallWindowProc(lpWndProC, hWnd, uMsg, wParam, lParam)      If uMsg = WM_DESTROY Then RemoveForm hWnd
      
   End IfEnd Function
Public Function RegisterButton(Button As CommandButton, _
                               Forecolor As Long) As Boolean   Dim hWndParent      As Long
   Dim lpWndProC       As Long
   Dim sButtonKey      As String  'Make the colButtons key for the button
   sButtonKey = GetKey(Button.hWnd)
   
  'If we already own the button, just change the
  'color otherwise we need to process the whole thing.
   If FindButton(sButtonKey) Then
   
      SetProp Button.hWnd, PROP_COLOR, Forecolor
      Button.Refresh
      
   Else
   
     'Get the handle to the buttons parent form.
      hWndParent = GetParent(Button.hWnd)
   
     'If we can't find a parent form, report a
     'problem and get out.
      If (hWndParent = 0) Then
         RegisterButton = False
         Exit Function
      End If
   
     'found the parent, gather all of the necessary
     'button values and add it to the collection.
      colButtons.Add Button, sButtonKey
      SetProp Button.hWnd, PROP_COLOR, Forecolor
      SetProp Button.hWnd, PROP_HWNDPARENT, hWndParent
      
     'Determine if we've already subclassed this form.
      lpWndProC = GetProp(hWndParent, PROP_LPWNDPROC)
   
     'It's a new form.  Subclass it and add the
     'Window proc address to the collection.
      If (lpWndProC = 0) Then
         lpWndProC = SetWindowLong(hWndParent, _
         GWL_WNDPROC, AddressOf ButtonColorProc)
         SetProp hWndParent, PROP_LPWNDPROC, lpWndProC
      End If
   
   End If
   
   RegisterButton = TrueEnd Function
Public Function UnregisterButton(Button As CommandButton) As Boolean   Dim hWndParent As Long
   Dim sKeyButton As String   sKeyButton = GetKey(Button.hWnd)   If (FindButton(sKeyButton) = False) Then
      UnregisterButton = False
      Exit Function
   End If   hWndParent = GetProp(Button.hWnd, PROP_HWNDPARENT)
   UnregisterButton = UnsubclassForm(hWndParent)   colButtons.Remove sKeyButton
   RemoveProp Button.hWnd, PROP_COLOR
   RemoveProp Button.hWnd, PROP_HWNDPARENT
   
End Function

Answer 2

'------------------------------------------------------------------------------ 
'Form Code 
'------------------------------------------------------------------------------  
'To a form, add a control array of command buttons (Command1(0)
' through Command1(9)) and a control array of option
' buttons (Option1(0) through Option1(9)), as well as an exit
'button (Command2). Set the Style property of all command buttons to
' 1-Graphical. Add the following code: 
 
Option Explicit'non-vb colours
Const vbDarkRed = &H90&
Const vbDarkBlue = &H900000'consts for the Command1 button control array
Const nDefault = 0
Const nRed = 1
Const nGreen = 2
Const nBlue = 3
Const nYellow = 4
Const nMagenta = 5
Const nCyan = 6
Const nWhite = 7
Const nDkRed = 8
Const nDkBlue = 9
Private Sub Command2_Click()   Unload Me
   
End Sub
Private Sub Form_Load()  'create the coloured buttons
   RegisterButton Command1(nRed), vbRed
   RegisterButton Command1(nGreen), vbGreen
   RegisterButton Command1(nBlue), vbBlue
   RegisterButton Command1(nYellow), vbYellow
   RegisterButton Command1(nMagenta), vbMagenta
   RegisterButton Command1(nCyan), vbCyan
   RegisterButton Command1(nWhite), vbWhite
   RegisterButton Command1(nDkRed), vbDarkRed
   RegisterButton Command1(nDkBlue), vbDarkBlue  'set the default backcolour
   Option1(0).Value = True
   
End Sub
Private Sub Option1_Click(Index As Integer)   Dim clrref As Long  'set the backcolour
   Select Case Index
      Case 0: clrref = vbButtonFace
      Case 1: clrref = vbApplicationWorkspace
      Case 2: clrref = vbBlack
      Case 3: clrref = vbWhite
      Case 4: clrref = vbRed
      Case 5: clrref = vbGreen
      Case 6: clrref = &H900000
      Case 7: clrref = vbCyan
      Case 8: clrref = vbMagenta
      Case 9: clrref = vbYellow
   End Select
   
   Command1(nRed).BackColor = clrref
   Command1(nGreen).BackColor = clrref
   Command1(nBlue).BackColor = clrref
   Command1(nYellow).BackColor = clrref
   Command1(nMagenta).BackColor = clrref
   Command1(nCyan).BackColor = clrref
   Command1(nWhite).BackColor = clrref
   Command1(nDkRed).BackColor = clrref
   Command1(nDkBlue).BackColor = clrref
   
End Sub

Answer 3

GetProp　　函数功能：该函数从给定窗口的属性列表中检索数据句柄。给定的字符串标识了要检索的句柄。该字符串和句柄必须在前一次调用SetProp函数时已经加到属性表中。 　　函数原型：HANDLE GetProp（HWND hWnd，LPCTSTR lpString）； 　　参数： 　　hWnd：指向要搜索属性表的窗口。 　　LpString：指向以null结尾的字符串指针，或者包含一个标识字符串的原子。如果该参数是一个原子，那么它必须是使用GlobalAddAtom函数创建的。原子是16位的数据值，它必须是放置在lpstring参数的低位率中，而高位字必须为O。 　　返回值：如果属性表中包含了给定的字符串，那么返回值为相关的数据句柄。否则，返回值为NULL。 　　速查：Windows NT：3.1以上版本；Windows：95以上版本；Windows CE：不支持：头文件：winuser.h；库文件：user32。lib；Unicode：在Windows NT环境中以Unicode和ANSI版本实现

Answer 4

终于搞明白了，其实GetProp就是返回一个数据结构。这个数据结构随便不同的控件有所不同。
其实所谓控件的实例也就是一存在和有数据的数据结构。可以通过EnumPropsEx来查询到这一数据结构。
也可以通过GetProp和原子来查找这一数据结构。不过有一点不明白就是EnumPropsEx函数,我在百度上面看到的描述是这样的
函数功能：该函数将窗口属性表中的所有项列举出来，依次传送给指定的回调函数，直到列举到最后一项，或者回调函数返回FALSE为止。
下面代码的nProp值为3，那么就是说这个窗口属性表有三个项，这个项指的是什么呢？unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
  function WinPropProc(hSubClass:HWND;lpszString:LPSTR;hData:THandle):Bool;stdcall;
implementation{$R *.dfm}function WinPropProc(hSubClass:HWND;lpszString:LPSTR;hData:THandle):Bool;stdcall;
{$j+}
const
    nProp:Integer=1;
{$j-}
var
    sAtom:TAtom;
    dData:TButton;
begin
    sAtom:=GlobalFindAtom(lpszString);
    if sAtom<>0 then begin
        dData:=TButton(GetProp(hSubClass,lpszString));
        ShowMessage(dData.Caption);
    end;
    nProp:=nProp+1;
    result:=True;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
    EnumPropsEx(Button2.Handle, @WinPropProc, 0);
end;end.