Question

此应用程序最初适用于Windows环境。

虽然只使用了下面提到的链接上的初始代码，但我不得不使用替换代码接受TabControls / TabItems（FMX）而不使用下面链接中的PageControls / TabSheet（VCL）。意图创建具有重建TabItem内部内容的框架（释放自身，然后在过程内部使用构造/创建对象方法）。

embarcadero.com (Replacing TabSheets with Frames - by Dan Miser)

每次我在使用自Delphi Seattle 10之后的Frames时都使用tiframe1，我已经习惯了动态使用它们的能力。这是方法之一。（问题发生在frame.Free;）这种方法导致应用程序不响应移动窗口或退出/关闭或任何与窗口层有关的事情（包括菜单栏）。

这与TFrame最初是为VCL制作的事实有关吗？

Project1.dpr

program Project1;

uses
  System.StartUpCopy,
  FMX.Forms,
  Unit1 in 'Unit1.pas' {Form1},
  frame1 in 'frame1.pas' {tiframe1: TFrame};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Unit1.pas

unit Unit1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.TreeView,
  FMX.Layouts, FMX.Controls.Presentation, FMX.StdCtrls, FMX.TabControl, FMX.Edit;

type
  TForm1 = class(TForm)
    TabControl1: TTabControl;
    TabItem1: TTabItem;
    TabItem2: TTabItem;
    procedure FormCreate(Sender: TObject);
    procedure RefreshFrame();

  private
    { Private declarations }
    procedure CreateFrame(ATabitem: TTabItem);

    function GetFrame(ATabitem: TTabItem): TFrame;
  public
    { Public declarations }

  end;

var
  Form1: TForm1;

implementation

{$R *.fmx}

uses frame1;

type
  TFrameClass = class of TFrame;

procedure TForm1.FormCreate(Sender: TObject);
begin
  TabItem1.Tag := Integer(Ttiframe1);
  CreateFrame(TabItem1);
end;

function TForm1.GetFrame(ATabitem: TTabItem): TFrame;
begin
  if not Assigned(ATabitem) then
    ATabitem := TabControl1.ActiveTab;
  Result := nil;
  if Assigned(ATabitem) and (ATabitem.ControlsCount > 0) and (ATabitem.Controls[0] is TFrame) then
    Result := TFrame(ATabitem.Controls[0]);
end;

procedure TForm1.CreateFrame(ATabitem: TTabItem);
var
  frame: TFrame;
begin
  if GetFrame(ATabitem) = nil then
    if ATabitem.Tag <> 0 then
    begin
      frame := TFrameClass(ATabitem.Tag).Create(Self);
      frame.Parent := ATabitem;
    end;
end;

procedure TForm1.RefreshFrame();
var
  frame: TFrame;
begin
  if Assigned(FindComponent('tiframe1')) then // 
  begin
    frame := FindComponent('tiframe1') as TFrame;
    frame.Free;  //This is the cause of all the problems
    frame := Ttiframe1.Create(Self);
    frame.Parent := TabControl1;
  end;
end;

end.

不要忘记创建一个Frame并使用Construct / Create以及底部（在＆＃34; end。＆＃34;之前）创建一个RegisterClass。

unit frame1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.TabControl, FMX.Forms, FMX.Layouts, FMX.Dialogs,
  FMX.StdCtrls, FMX.Graphics, FMX.Controls.Presentation, FMX.Memo, FMX.Edit;

type
  Ttiframe1 = class(TFrame)
    Button1: TButton;

    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }

  public
    { Public declarations }
    constructor Create(AOwner: TComponent); override;
  end;

implementation

{$R *.fmx}

uses Unit1;

procedure Ttiframe1.Button1Click(Sender: TObject);
begin
  Form1.RefreshFrame();
end;

constructor Ttiframe1.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
end;

initialization
  RegisterClass(Ttiframe1);

end.

现在我也在查看是否可以重新呈现TabItems以显示任何新的或更新的内容（在Refresh或Application.ProcessMessages方法中的类型），与Frame中的构造函数类似，影响这样元素为TLabel.Text，甚至可能是TEdit.Text。在构造内部，我让它动态地从db中获取数据。

替换的原因是，在TabItem内部使用（TTreeView）时，Frame内部或其他方式会导致类似的情况，而不会有一个已知原因使我在使用时将注意力/焦点从MainForm窗口移开RefreshFrame;

Answer 1

我知道这只是一些用于演示问题的代码，因此我不会在代码中涉及其他奇怪的内容，而是会关注您描述的问题。

问题是按钮的OnClick处理程序释放了框架，因此按钮和处理程序返回到一个不存在的按钮。

为避免这种情况，您可以执行以下任何一项

重新设计，以便OnClick处理程序不释放框架（以及按钮）
使用您自己定义的Windows消息（因为平台是Windows）按钮发布到表单，当表单收到时，调用RefreshFrame
使用该按钮启用的1毫秒TTimer以及从其RefreshFrame事件中调用OnTimer的情况，其中计时器也被禁用

这个想法是按钮OnClick处理程序可以在框架和按钮被销毁之前完成。

（Delphi FMX）如何刷新TabControl.TabItem中的Frame对象而不失去对窗口的控制？

1 个答案: