通过包含窗体的按钮

Question

我在运行时创建的标签类似这样在运行时删除标签：

procedure TForm1.ShowFormOnTab(pProcName:String); 
var 
    Newform: TForm; 
    ClassToUse: TFormClass; 

    NewTab: TTabSheet; 
    FormName: String; 

begin 
    NewTab := TTabSheet.Create(PageControl1); 
    NewTab.PageControl:= PageControl1; 

    PageControl1.ActivePage := NewTab; 

    if pProcName='ProcfrmSetupItemCategories' then 
    ClassToUse := TfrmSetupItemCategories 
    else if pProcName='ProcfrmZones' then 
    ClassToUse := TfrmZones 
    else 
    ClassToUse := nil; 
    if Assigned(ClassToUse) then 
    begin 
     NewForm := ClassTouse.Create(NewTab); 
     NewTab.Caption := NewForm.Caption; 
    end; 

现在，标签显示正确，和形式出现在他们。我需要这样做，因为表单+标签是在运行时创建的。

但这里是我的问题： 表单上有一个关闭按钮，点击时可以释放表单的资源。但是我也希望TAB在单击窗体按钮时关闭。

我该如何解决这个问题？

谢谢！

Answer 1

我不喜欢的事情变得复杂的

如何获得标签的形式（的PageControl）

TForm1 = class(TForm) 
    PageControl1 : TPageControl; 

    procedure NewTabbedForm; 
end; 

procedure TForm1.NewTabbedForm; 
var 
    LForm : TForm; 
begin 
    // Some code to get a new form instance into LForm 

    LForm := TTabForm.Create(Self); 

    // now the magic to put this form into PageControl as a TabSheet 
    LForm.ManualDock(PageControl1, PageControl1, alClient); 
    // Finally 
    LForm.Show; 
end; 

形式的标题将被自动用于自动创建标签页标题。

如何释放/删除标签形式

简短

TTabForm = class(TForm) 
    Close_Button : TButton; 
    procedure Close_ButtonClick(Sender : TObject); 
end; 

procedure TTabForm.Close_ButtonClick(Sender : TObject); 
begin 
    Self.Release; 
end; 

一点点

TTabForm = class(TForm) 
    Close_Button : TButton; 
    procedure Close_ButtonClick(Sender : TObject); 
    procedure FormClose(Sender : TObject; var Action : TCloseAction); 
end; 

procedure TTabForm.Close_ButtonClick(Sender : TObject); 
begin 
    Self.Close; 
end; 

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

Answer 2

您可以简单地Free选项卡表。你不需要分开释放标签页的孩子。只需在标签页上拨打Free即可完成。

但是，如果按钮位于正在释放的选项卡表上，那将无法工作。从按钮的事件处理程序中释放按钮的父按钮是不可能的。

解决方法是发布自己的消息。该消息需要包含释放标签页所需的信息。通过发布消息，您可以允许OnClick事件处理程序在处理排队消息之前运行完成。

const 
    WM_FREECONTROL = WM_USER; 
.... 
PostMessage(Self.Handle, WM_FREECONTROL, 0, LParam(TabSheet)); 

那么对于消息添加处理程序的形式：

procedure WMFreeControl(var Message: TMessage); message WM_FREECONTROL; 

，并实现它是这样的：

procedure TForm1.WMFreeControl(var Message: TMessage); 
begin 
    TObject(Message.LParam).Free; 
end; 

现在，在写这篇冗长的响应，做到明确的是，第2款以后的建议仅适用于按钮是正在被释放的控件的孩子的情况。