
创建一个ContextMenu控件的实例,在里面添加好菜单项
然后把ListView的ContextMenu属性设置为你创建的控件的名称
各个菜单项的可以在MenuItem_Click事件里编写代码实现相应功能
{在创建Form2的时候添加此代码可实现你要的功能}Form2:= TForm2.Create(Application)
if Form2.ShowModal = mrOk then
begin
Form2.CheckBox1.Checked:= Form1.ListBox1.Selected[0]
Form2.CheckBox2.Checked:= Form1.ListBox1.Selected[1]
{以此类推}
end
Form2.Free
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)