Wie bekomme ich die Position eines Steuerelements relativ zum Client rect des Fensters?

Question

Ich möchte Code schreiben können wie folgt aus:

HWND hwnd = <the hwnd of a button in a window>; 
int positionX; 
int positionY; 
GetWindowPos(hwnd, &positionX, &positionY); 
SetWindowPos(hwnd, 0, positionX, positionY, 0, 0, SWP_NOZORDER | SWP_NOSIZE); 

Und haben sie nichts tun. Allerdings kann ich nicht ausrechnen, wie eine GetWindowPos() Funktion zu schreiben, die ich Antworten in den richtigen Einheiten gibt:

void GetWindowPos(HWND hWnd, int *x, int *y) 
{ 
    HWND hWndParent = GetParent(hWnd); 

    RECT parentScreenRect; 
    RECT itemScreenRect; 
    GetWindowRect(hWndParent, &parentScreenRect); 
    GetWindowRect(hWnd, &itemScreenRect); 

    (*x) = itemScreenRect.left - parentScreenRect.left; 
    (*y) = itemScreenRect.top - parentScreenRect.top; 
} 

Wenn ich diese Funktion verwenden, ich Koordinaten erhalten, die bezüglich des oberen linke Ecke der Mutter Fenster, aber SetWindowPos() will Koordinaten relativ zum Bereich unterhalb der Titelleiste (ich nehme an, dies ist der "Client-Bereich", aber die Win32-Terminologie ist alles ein bisschen neu für mich).

Lösung Dies ist die Arbeits GetWindowPos() Funktion (dank Sergius):

void GetWindowPos(HWND hWnd, int *x, int *y) 
{ 
    HWND hWndParent = GetParent(hWnd); 
    POINT p = {0}; 

    MapWindowPoints(hWnd, hWndParent, &p, 1); 

    (*x) = p.x; 
    (*y) = p.y; 
} 

Answer 1

Try GetClientRect zu verwenden Koordinaten zu erhalten und MapWindowPoints es zu transformieren.

Answer 2

Ich denke, u so etwas wollen. Ich weiß nicht, wie heiß es ist, Kontrollen zu finden. Dieses Code-Segment weist die Position eines Labels in der Mitte der Fensterform entsprechend der Größe der Form zu.

AllignLabelToCenter(lblCompanyName, frmObj) 


Public Sub AllignLabelToCenter(ByRef lbl As Label, ByVal objFrm As Form) 
     Dim CenterOfForm As Short = GetCenter(objFrm.Size.Width) 
     Dim CenterOfLabel As Short = GetCenter(lbl.Size.Width) 
     lbl.Location = New System.Drawing.Point(CenterOfForm - CenterOfLabel, lbl.Location.Y) 
    End Sub 
    Private ReadOnly Property GetCenter(ByVal obj As Short) 
     Get 
      Return obj/2 
     End Get 
    End Property