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;
本文来自博客园,作者:liessay,转载请注明原文链接:https://www.cnblogs.com/liessay/p/18513810