怎么memo上弹出的popmenu中加入一个menuitem？？

[frogshero]

怎么memo上弹出的popmenu中加入一个menuitem？？

[yansea]

你说的是那个系统菜单吧，不知道用你自己的popumenu替换行不行？

[Liujc]

不知道这样行不行。

mh := GetMenu(Memo1.handle);
AppendMenu(mh, MF_STRING, MF_STRING, 'I Insert');

[xyxx]

还是这样？
var s:TMenuItem;
begin
s:=TMenuItem.Create(self);
s.Caption:='sdfsd';
Memo1.PopupMenu:=PopupMenu1;
PopupMenu1.Items.Add(s);

[saien]

用api编写。

[ikumei]

//以下是一个动态创建popupmenu以及其下的菜单项(MenuItem)
//的例子。其中filenames是一个string数组
//没有为动态创建的menuitem的click过程：RecentFileClick写内容
MainMenu1.Items[MenuPos].Items[SubPos].Clear;
MyPopUpMenu:=TPopUpMenu.Create(self);
MyPopUpMenu.AutoHotkeys:=maManual;
for i:=1 to length(filenames) do
begin
if filenames[i]<>'' then
begin
MySubMenu:=TMenuItem.Create(self);
MySubMenu.Caption:=filenames[i];
MySubMenu.OnClick:=RecentFileClick;
MyPopUpMenu.Items.Add(MySubMenu);
end;
end;
tbOpen.DropdownMenu:=MyPopUpMenu;

[ikumei]

当然，你完全可以自定义memo上的popupmenu的全部，而不是使用系统提供的popupmenu。方法很简单：在设计时期为memo指定一个popupmenu控件。当然，其中的例如复制等操作必须自己写代码了，使用action控件会方便些