Club Builder

[Cynewulf]

Bueno como ya dije antes mis conocimiantos de Delphi son limitados y quisiera pasar este codigo a builder

type
TForm1 = class(TForm)
..........
private
procedure WMNCHitTest(var Msg: TWMNCHitTest); message WM_NCHITTEST;
..........
end;



y en la parte implementation:



procedure TForm1.WMNCHitTest(var Msg: TWMNCHitTest);
begin
inherited;
if Msg.Result = htClient then Msg.Result := htCaption;
end;

Y Muchas gracias a _Leo por la ayuda

[_Leo]

class TForm1 : public TForm
{
..........
private:
    void __fastcall WMNCHitTest(TWMNCHitTest & Msg);
protected:
    BEGIN_MESSAGE_MAP
        MESSAGE_HANDLER(WM_NCHITTEST, TWMNCHitTest, WMNCHitTest)
    END_MESSAGE_MAP(TForm)
..........
};

y

void __fastcall TForm1::WMNCHitTest(TWMNCHitTest & Msg)
{
    TForm::Dispatch(&Msg);
    if (Msg.Result == HTCLIENT)
        Msg.Result = HTCAPTION;
}

---
Saludos.

[_Leo]

El mensaje de WM_NCHITTEST se envía a una ventana cuando el cursor se mueve, o cuando un botón del ratón se presiona o se libera. Si el ratón no se captura, el mensaje se envía a la ventana bajo el cursor. En otro caso, el mensaje se manda a la ventana que ha capturado el ratón.

En el caso del código que se muestra mas arriba lo que hace es permitir mover/arrastrar el Form mantiendo el botón izquierdo del ratón sobre cualquier parte del mismo.

---

[dcelso@terra.es]

¿Para que sirve ese mensaje?