nicht modale dialoge verschieben

[Luckie]

So mache ich es in meinen Dialogen:

Delphi-Quellcode:

{ move the window with the left button down }
WM_LBUTTONDOWN:
  begin
    SetCursor(LoadCursor(0, IDC_SIZEALL));
    SendMessage(hDlg, WM_NCLBUTTONDOWN, HTCAPTION, lParam);
  end;