Forms - ohne Titelleiste verschieben

[Andy1000]

Also ich habe folgendes Problem. Ich habe ein Formular, (bsNone) also ohne diesen Kopf.
Nun möchte ich es aber peer Mausklick verschieben.

Kann mir jemand sagen, wie das geht.

[ 17.08.2001: Beitrag editiert von: Jansen ]

[Peter]

void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
    if (Button==mbLeft)
    {   ReleaseCapture();
        SendMessage(Form1->Handle, WM_SYSCOMMAND, SC_MOVE + HTCAPTION, 0);
    }
}

[Andy1000]

Danke funzt