界面设计放入dxUIAdornerManager控件,功能很简单详见主食
procedure TForm1.cxButton1Click(Sender: TObject); varaBadge: 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;