delphi PopupMenu

 

取消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)