打开一个窗体的同时如何在TabControl上也增加一个标签，双击标签的时候这个窗体再关闭？

Question

打开一个窗体的同时如何在TabControl上也增加一个标签，双击标签的时候这个窗体再关闭。

Answer 1

TabControl是在同一个窗口 ?

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.Show;
  MyTab.Tabs.AddObject('Form2',Form2);
end;procedure TForm1.MyTabMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if (ssDouble in Shift) and (ssLeft in Shift) then
  begin
    TForm(MyTab.Tabs.Objects[MyTab.TabIndex]).Close;
    MyTab.Tabs.Delete(MyTab.TabIndex);
  end;
end;