0

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

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

embarcadero.com（用框架替换 TabSheets - Dan Miser）

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

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

项目1.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.

单元1.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 以及在底部（“结束”之前）创建一个 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。在构造内部，我让它动态地从数据库中获取数据。

替换的原因是当我应该使用 RefreshFrame 时，在 Frame、TabItem 内或其他地方使用 (TTreeView) 时，会导致类似的发生，而没有已知原因使注意力/焦点远离 MainForm 窗口；

4

1 回答 1

1

我知道这只是一些虚构的代码来演示问题，所以我不会在代码中涉及其他奇怪的地方，而是将重点放在你描述的问题上。

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

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

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

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

于 2016-01-21T22:28:09.563 回答