根据按钮的用途创建框架

Question

在表格上：
* TCategoryButtons（例如，有3个类别，每个类别有10个按钮）
* TPageControl（干净）
创建了 30 个（例如）不同的框架。

按下按钮时需要:
1.检查是否已经创建了一个框架（一个按钮只有一个框架）。
2.在TPageControl中创建一个标签并激活它。
3、创建按钮对应的frame，放入创建的tab中（如果tab关闭，则kill掉它和frame）。

这就是我能做的：

procedure TForm1.CategoryButtons1Categories0Items0Click(Sender: TObject);
var
  Client: TTabSheet;
begin
  if (not Assigned(Frame2)) then
  begin
    Client := TTabSheet.Create(Self);
    Client.PageControl := PageControl1;
    Client.Caption := CategoryButtons1.Categories[0].Items[0].Caption;
    PageControl1.ActivePage := Client;

    Frame2 := TFrame2.Create(nil);
    Frame2.Parent := Client;
  end;
end;

我试过这样做：

type
  TFrameClass = class of tframe; 

function GetFrClass(const aClassID: Integer): TFrameClass;
begin
  case aClassID of
    1:
      Result := TFrame2;
    2:
      Result := TFrame3;
  else
    Result := nil;
  end;
end;

procedure TForm1.CreateFrm(tags: Integer; NameTSh: string);
var
  FrClass: TFrameClass;
  Frame: tframe;
  Client: TTabSheet;
begin
  FrClass := GetFrameClass(tags);

  if (FrClass <> nil) then
  begin
    Client := TTabSheet.Create(Self);
    Client.PageControl := PageControl1;
    Client.Caption := NameTSh;

    Frame := FrClass.Create(Client);
    Frame.Parent := Client;
  end;
end;

但此方法不限制创建的框架实例的数量。

请告诉我解决方法！

Answer 1

您可以使用过程 TForm1.CreateFrm() 中的 tags: Integer 值来确定框架是否已存在于 PageControl1 中。

在创建框架并将其添加到 PageControl1 之前，检查是否有任何现有页面在 tag 属性中已经具有 tags 的值:

procedure TForm1.CreateFrm(tags: Integer; NameTSh: string);
var
  i: integer;
  ...
begin
  for i := 0 to PageControl1.PageCount-1 do
    if PageControl1.Pages[i].tag = tags then
      Exit;

  FrClass := GetFrameClass(tags);
  ...

在 CreateFrm() 过程结束时，您存储 tags

  PageControl1.Pages[PageControl1.PageCount-1].Tag := tags;
end;

根据按钮的用途创建框架

Create Frame depending on the purpose of the button

delphi

delphi-xe

delphi-xe2