给在列表项设计面板上的按钮添加点击事件，

主要是使用ListBox.Prop.InteractiveItem属性，

它表示当前设计面板上子控件点击所在的列表项，

 

准备好一个ListBox,

在ListBox上添加如下ItemDesignerPanel,

并且添加好三个列表项：Movies,Music,Documents,

如下图所示:

在ItemDesignerPanel上面放一个按钮，

比如Name设置为”btnShowCaption”

按钮标题设置为”显示名称”，

再给按钮设置一下背景色:

SelfOwnMaterial.IsTransparent设置为False,

SelfOwnMaterial.BackColor.IsFill设置为True,

SelfOwnMaterial.BackColor.FilColor.Color设置为Deepskyblue,

再给按钮设置一下字体居中:

SelfOwnMaterial.DrawCaptionParam.FontVertAlign设置为fvaCenter,

SelfOwnMaterial.DrawCaptionParam.FontHorzAlign设置为fhaCenter,

效果如下:

然后要实现，点击这个按钮，弹出一个对话框，显示点击所在列表项的标题Item.Caption,

把Button.HitTest设置为True,表示响应点击事件OnClick,

双击这个Button,在代码编辑器中写下如下代码:

procedure TFrameListBox_UseItemDesignerPanel.btnShowCaptionClick(Sender: TObject);

begin

ShowMessage(Self.lbSimple.Prop.InteractiveItem.Caption);

end;

 

Self.lbSimple.Prop.InteractiveItem表示当前按钮点击所在的列表项，

然后我们运行一下示例，点击按钮，看一下效果:

点击第一个列表项，弹出对话框，显示”Movies”,

点击第三个列表项，弹出对话框，显示”Documents”,