nicht modale dialoge verschieben

[Mark90]

Hi bei der VCL geht das so.

Delphi-Quellcode:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  SendMessage(Form1.Handle, WM_SYSCOMMAND, $F012, 0);
end;

ich habs bei meinem dialog probiert, leider klappt das nicht.

Delphi-Quellcode:

case umsg of 
  WM_SIZE:
    BEGIN
      ReleaseCapture;
      SendMessage(HWND, WM_SYSCOMMAND, $F012, 0);
    END;