RxRichEdit 內如何使用PopupMenu(0分)

  • 主题发起人 主题发起人 lasmai
  • 开始时间 开始时间
L

lasmai

Unregistered / Unconfirmed
GUEST, unregistred user!
RxRichEdit 內如何使用PopupMenu
 
·AllowObjects属性。Win98下默认设置为True,右键菜单没有问题,但设为False时快捷菜单会连续出现两次;Win2000下,设为True时会使右键菜单无法弹出,而False时却显示正常。所以,为了系统的兼容性,需要判断当前OS版本:
procedure TFormMain.FormCreate(Sender: TObject);
var
OSVI: OSVERSIONINFO;
......
begin
OSVI.dwOSVersionInfoSize := sizeof(OSVERSIONINFO);
GetVersionEx(OSVI);
case OSVI.dwPlatformId of
1 : RxRichEdit1.AllowObjects := true;
2 : RxRichEdit1.AllowObjects := false;
end;
.......
end;
但我不知这个属性为什么会有这么一个问题,还望高手指点。
 
后退
顶部