Изменение размера формы fsNone

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Tabs, DockTabSet, ExtCtrls;
 
type
  TForm1 = class(TForm)
    BitBtn1: TBitBtn;
    Panel2: TPanel;
    DockTabSet2: TDockTabSet;
    Panel3: TPanel;
    procedure BitBtn1Click(Sender: TObject);
    procedure Panel2DockOver(Sender: TObject; Source: TDragDockObject; X,
      Y: Integer; State: TDragState; var Accept: Boolean);
    procedure Panel2UnDock(Sender: TObject; Client: TControl;
      NewTarget: TWinControl; var Allow: Boolean);
    procedure DockTabSet2TabAdded(Sender: TObject);
    procedure DockTabSet2TabRemoved(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
uses Unit2;
 
{$R *.dfm}
 
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
form2.ManualDock(DockTabSet2);
DockTabSet2.ShowDockClient(form2);
form2.show;
end;
 
procedure TForm1.DockTabSet2TabAdded(Sender: TObject);
begin
Panel3.Width:=150;
if DockTabSet2.Visible=false then DockTabSet2.Show;
DockTabSet2.TabIndex:=0;//пытаюсь так отобразить только что пристыкованную форму
end;
 
procedure TForm1.DockTabSet2TabRemoved(Sender: TObject);
begin
if Panel2.DockClientCount=0 then Panel3.Width:=0;
if DockTabSet2.Tabs.Count=0 then DockTabSet2.Hide;
end;
 
 
procedure TForm1.Panel2DockOver(Sender: TObject; Source: TDragDockObject; X,
  Y: Integer; State: TDragState; var Accept: Boolean);
begin
Panel3.Width:=150;
end;
 
procedure TForm1.Panel2UnDock(Sender: TObject; Client: TControl;
  NewTarget: TWinControl; var Allow: Boolean);
begin
if panel2.DockClientCount=0  then Panel3.Width:=0;
end;
 
end.

procedure TForm1.DockPanelDockDrop(Sender: TObject; Source: TDragDockObject; X,
  Y: Integer);
var i, max_width : Integer;
begin
  // Тут подстраиваем ширину панели под самую широкую из пристыкованных форм
  if DockPanel.DockClientCount = 0 then DockPanel.Width := 3
  else
  begin
    max_width := 0;
    for i := 0 to Pred(DockPanel.DockClientCount) do
    begin
      if DockPanel.DockClients[i].UndockWidth > max_width then
        max_width := DockPanel.DockClients[i].UndockWidth;
    end;
    DockPanel.Width := max_width;
  end;
end;
 
procedure TForm1.DockPanelDockOver(Sender: TObject; Source: TDragDockObject; X,
  Y: Integer; State: TDragState; var Accept: Boolean);
var TL, BR : TPoint;
begin
  // А вот тут - показываем, перемещая DockPositionPanel, где именно будет располагаться
  // вновь пристыкованная форма
  DockPositionPanel.Visible := State <> dsDragLeave;
  if State = dsDragLeave then DockPanel.Repaint;
 
  TL := DockPanel.ScreenToClient(Point(Source.DockRect.Left, Source.DockRect.Top));
  BR := DockPanel.ScreenToClient(Point(Source.DockRect.Right, Source.DockRect.Bottom));
 
  DockPositionPanel.BoundsRect := Rect(TL, BR);
  DockPositionPanel.BringToFront;
end;

begin
  DockTabSet1.Visible := True;
end;
 
procedure TForm1.DockTabSet1TabRemoved(Sender: TObject);
begin
  DockTabSet1.Visible := DockTabSet1.Tabs.Count > 0;
end;

type
  TMyDragDock = class(TDragDockObjectEx)
  private
    FDragImageList : TDragImageList;
  protected
    function GetDragImages: TDragImageList; override;
  public
    constructor Create(AControl : TControl); override;
    destructor Destroy; override;
  end;
 
constructor TMyDragDock.Create(AControl : TControl);
var
  bmp : TBitmap;
begin
  // При создании объекта создадим ImageList, по размеру
  // хранимых изображений совпадающий с формой ...
  inherited Create(AControl);
  FDragImageList := TDragImageList.CreateSize(AControl.Width, AControl.Height);
  FDragImageList.Masked := true;
 
  FDragImageList.Clear;
  bmp := TBitmap.Create;
  try
    bmp.SetSize(AControl.Width, AControl.Height);
    bmp.Canvas.Brush.Style := bsSolid;
    bmp.Canvas.Brush.Color := clBlue;
    bmp.Canvas.FillRect(bmp.Canvas.ClipRect);
 
    // и занесем в него закрашенный цветом clBlue битмап. Теперь, при перетягивании
    // объекта, будет перетягиваться как раз этот самый битмап
 
    FDragImageList.Add(bmp, nil);
    Control.Tag := Integer(FDragImageList);
  finally
    bmp.Free;
  end;
end;
 
// Не забываем удалить ImageList
destructor TMyDragDock.Destroy;
begin
  FDragImageList.Free;
end;
 
// По требованию - возвращаем ImageList, система разбирается, когда ей нужно
// вытащить оттуда изображения, и отобразить их
function TMyDragDock.GetDragImages: TDragImageList;
begin
  Result := FDragImageList;
end;

procedure TForm2.FormStartDock(Sender: TObject;
  var DragObject: TDragDockObject);
var pos : TPoint;
begin
  DragObject := TMyDragDock.Create(Self); // Вот оно, основное действие !!!
  GetCursorPos(pos);
  Dec(pos.x, Self.Left);
  Dec(pos.y, Self.Top);
 
  // Ну, и выставляем DragHotspot, то есть, точку, за которую тянется изображение,
  // чтобы синий прямоугольник точно закрывал форму, а не был смещен относительно нее
  (TDragImageList(DragObject.Control.Tag)).DragHotspot := pos;
end;

type
  TForm2 = class(TForm)
  // ...
  private
    { Private declarations }
  public
    { Public declarations }
  protected
    // Переопределяем эти 2 метода
    procedure EraseDragDockImage(DragDockObject : TDragDockObject); override;
    procedure DefaultDockImage(DragDockObject: TDragDockObject; Erase: Boolean); override;
  end;
 
// ...
 
// Ну, и реализация:
procedure TForm2.EraseDragDockImage(DragDockObject : TDragDockObject);
begin
  if DragDockObject.Cancelling then // Отмена "протягивания"?
      (TDragImageList(DragDockObject.Control.Tag)).EndDrag; // Значит, завершаем...
end;
 
// Здесь ничего делать не надо, оставляем реализацию пустой, это отменит дефолтную обработку
procedure TForm2.DefaultDockImage(DragDockObject: TDragDockObject; Erase: Boolean);
begin
  //
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;