Dragging form

[Nephila]

Is it at all possible to reposition (drag) the main form with a panel on that main form. The form's border style is set to bsNone, but i still want the user to be able to move the form around on the screen. Any help???

 

[Guest_imported]

//this should do the trick...

procedure TForm1.MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft then
begin
ReleaseCapture;
self.Perform(WM_SYSCOMMAND,$F012,1);
end
end;