delphi PopupMenu

最新推荐文章于 2020-12-23 20:45:43 发布

weixin_30609331

最新推荐文章于 2020-12-23 20:45:43 发布

阅读量494

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/xe2011/archive/2012/05/31/2527323.html

本文介绍如何解决使用AutoHotKeys属性导致PopupMenu菜单后面自动加字母的问题，并提供了相关代码示例。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

取消PopupMenu菜单后面自动加了字母：

把PopupMenu的AutoHotKeys属性设置为maManual就可以了

////

procedure TForm1 . Del1Click ( Sender : TObject );
begin
if PopupMenu1 . PopupComponent = listbox1 then ListBox1 . DeleteSelected ;
if PopupMenu1 . PopupComponent = listbox2 then ListBox2 . DeleteSelected ;

end ;

procedure TForm1 . FormCreate ( Sender : TObject );
begin
   PopupMenu1 . AutoPopup := True ;
   listbox1 . PopupMenu := PopupMenu1 ;
   listbox2 . PopupMenu := PopupMenu1 ;
end ;

procedure TForm1 . Clear1Click ( Sender : TObject );
begin
if PopupMenu1 . PopupComponent = listbox1 then ListBox1 . Clear ;
if PopupMenu1 . PopupComponent = listbox2 then ListBox2 . Clear ;
end ;

来自为知笔记(Wiz)

转载于:https://www.cnblogs.com/xe2011/archive/2012/05/31/2527323.html