Delphi自定义FireMonkey按钮控件实现设计时自动递增的默认Text属性

嘿，这个需求和IDE自带组件的默认命名逻辑路子一样，咱们可以在组件的构造函数里做针对性处理，区分设计时和运行时的场景来实现自动赋值。下面给你一步步拆解怎么做：

第一步：修改组件类的核心代码 #

首先给你的TMyButton添加构造函数，同时通过ComponentState判断当前是否处于设计模式（避免运行时触发自动赋值逻辑）。这里分两种实现方式，你可以按需选：

方式1：按当前窗体的实例数量递增（和IDE默认命名逻辑一致）

这种方式会统计当前容器（窗体/面板等）里已有的TMyButton数量，新组件的Text直接用数量作为序号，比如删了MyButton2再拖新的，会生成MyButton3（和IDE组件命名逻辑完全匹配）：

uses
  SysUtils, FMX.Controls, FMX.Types;

type
  TMyButton = class(TControl)
  private
    FText: string;
  public
    constructor Create(AOwner: TComponent); override;
  published
    property Text: string read FText write FText;
  end;

constructor TMyButton.Create(AOwner: TComponent);
var
  I: Integer;
  InstanceCount: Integer;
begin
  inherited Create(AOwner);
  // 仅在设计模式下执行自动赋值
  if csDesigning in ComponentState then
  begin
    InstanceCount := 0;
    // 遍历当前容器下的所有组件，统计同类型实例数
    if Assigned(AOwner) then
      for I := 0 to AOwner.ComponentCount - 1 do
        if AOwner.Components[I] is TMyButton then
          Inc(InstanceCount);
    // 生成带递增序号的Text
    FText := Format('MyButton%d', [InstanceCount]);
  end;
end;

方式2：按已存在的最大序号递增（严格连续）

如果想要删除中间组件后，新组件的序号仍接着最大的数字走（比如删了MyButton2，现有MyButton1、MyButton3，新组件会生成MyButton4），可以用这个版本：

constructor TMyButton.Create(AOwner: TComponent);
var
  I: Integer;
  MaxNum: Integer;
  CurrentNum: Integer;
  Comp: TMyButton;
begin
  inherited Create(AOwner);
  if csDesigning in ComponentState then
  begin
    MaxNum := 0;
    if Assigned(AOwner) then
      for I := 0 to AOwner.ComponentCount - 1 do
        if AOwner.Components[I] is TMyButton then
        begin
          Comp := TMyButton(AOwner.Components[I]);
          // 从已有组件的Text中提取数字部分
          if TryStrToInt(Copy(Comp.Text, 9, Length(Comp.Text)-8), CurrentNum) then
            if CurrentNum > MaxNum then
              MaxNum := CurrentNum;
        end;
    // 新序号为最大数字+1
    FText := Format('MyButton%d', [MaxNum + 1]);
  end;
end;

第二步：注册组件到IDE（如果还没做的话） #

你需要把组件注册到Delphi IDE的组件面板里，才能拖拽使用。新建一个注册单元，代码如下：

uses
  Classes, FMX.Controls, 你的按钮单元名; // 替换成TMyButton所在的单元名称

procedure Register;
begin
  RegisterComponents('Custom', [TMyButton]);
end;

小提示 #

• 手动修改过Text的组件不会被这个逻辑影响，只有新拖拽到窗体的组件会自动赋值；
• 两种方式各有适用场景，第一种和IDE原生体验一致，第二种适合需要严格连续序号的场景。

备注：内容来源于stack exchange，提问作者zeus