UIAdornerManager实现角标功能

界面设计放入dxUIAdornerManager控件，功能很简单详见主食

procedure TForm1.cxButton1Click(Sender: TObject);
var
  aBadge: TdxBadge; // 声明一个变量用于存储徽章对象
begin
  // 清除当前所有徽章
  dxUIAdornerManager1.Badges.Clear;

  // 创建第一个徽章并设置其属性
  aBadge := dxUIAdornerManager1.Badges.Add;
  aBadge.Text := cxTextEdit1.Text + '-1'; // 设置徽章文本，取自文本编辑框
  aBadge.TargetElementClass := TdxAdornerTargetElementPath; // 指定目标元素类型为路径

  // 设置徽章的目标元素为 cxButton2 按钮
  TdxAdornerTargetElementPath(aBadge.TargetElement).Path := cxButton2.Name;

  // 创建第二个徽章并设置其属性
  aBadge := dxUIAdornerManager1.Badges.Add;
  aBadge.Text := cxTextEdit1.Text + '-2'; // 设置徽章文本
  aBadge.TargetElementClass := TdxAdornerTargetElementPath; // 指定目标元素类型为路径

  // 设置徽章的目标元素为 cxLabel1 标签
  TdxAdornerTargetElementPath(aBadge.TargetElement).Path := cxLabel1.Name;

  // 创建第三个徽章并设置其属性
  aBadge := dxUIAdornerManager1.Badges.Add;
  aBadge.Text := cxTextEdit1.Text + '-3'; // 设置徽章文本
  aBadge.TargetElementClass := TdxAdornerTargetElementPath; // 指定目标元素类型为路径

  // 设置徽章的目标元素为 cxPageControl1 的 cxTabSheet1 标签
  TdxAdornerTargetElementPath(aBadge.TargetElement).Path := cxPageControl1.Name + '.' + cxTabSheet1.Name;

  // 激活所有徽章，以便它们显示在界面上
  dxUIAdornerManager1.Badges.Active := True;
end;