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;

[jhonalone]

Muchas gracias, cHackAll.
Como siempre, es un placer, y una gran suerte para este foro, poder contar con tu desinteresada ayuda y tu inmensa sabiduría. Aunque todos conocemos sobradamente tus méritos, no estará de más que los recordemos de vez en cuando.

Tengo la certeza de que los dos procedimientos van a funcionar, no lo he probado todavía, pero estoy seguro. El primero lo veo muy claro. Pero el segundo me cuesta más (muy pocos estamos a tu nivel). Abusando una vez más de tu valioso tiempo, me gustaría lo glosaras con un par de comentarios cortos. Quede claro que, si no lo haces lo comprenderé e igualmente te agraceceré que me hayas sacado del "atolladero" una vez más.

Saludos.

[jhonalone]

P. D.
Perdón. Cuando dije que "muy pocos estamos a tu nivel", quise decir que "muy pocos están a tu nivel", yo no puedo incluírme, ni de lejos...
Un abrazo.