Dragging (Arrastrar ventana)

[[cHackAll]]

Código Delphi [-]
procedure TForm2.Panel1EndDock(Sender, Target: TObject; X, Y: Integer);
var Control: TControl;
begin
 Control := Sender as TControl;
 if Target is TCustomDockForm then
  with Target as TCustomDockForm do
   begin
    BorderStyle := bsNone;//bsToolWindow;
    FormStyle := fsStayOnTop;
    ClientWidth := Control.Width;
    ClientHeight := Control.Height;
    Control.Left := 0;
    Control.Top := 0;
   end;
end;
 
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
var Index: Cardinal;
begin
 for Index := 0 to Screen.CustomFormCount - 1 do
  if Screen.CustomForms[Index] is TCustomDockForm then
   with Screen.CustomForms[Index].Controls[0] do
    Dock(Self, Rect(66, 66, 66 + Width, 66 + Height));
end;