可以拦截WM_RBUTTONDOWN和WM_RBUTTONUP消息
解决方案 »
- 请问delphi怎么加密解密xml?
- !!!!!!!dxDBTreeList!!!!!!!!!!!!dxDBTreeList!!!!!!!!!!!!!!!dxDBTreeList!!!!!!!!!!!dxDBTreeList!!!!dxDBTreeList
- 急需ASCII码表
- 打印头的运动问题!!谁来帮帮我!!!!!
- 散分
- 帮助文档制作
- 怎能只调整stringgrid中的fixedcols和fixedrows的宽和高呢?或是在哪有可以这样的第三方控件?
- 关于DBGRID的问题.
- 虎落平阳被犬欺
- 请问如何在TStringGrid或TDrawGrid的Cell中画图?
- 有谁对用delphi 开发图形软件感兴趣吗?
- 鼠标CLICK了哪个对象?
TMyComponentEditor = class(TComponentEditor)
public
procedure ExecuteVerb(Index: Integer); override;
function GetVerb(Index: Integer): string; override;
function GetVerbCount: Integer; override;
end;{TMyComponentEditor }
procedure TMyComponentEditor .ExecuteVerb(Index: Integer);
begin
case Index of //执行你所要做的事,index为你点击的菜单项
0: ;
end;
end;function TMyComponentEditor .GetVerb(Index: Integer): string;
begin
case Index of
0: Result := 'Edit Items'; //指定右键菜单项的caption
end;
end;function TMyComponentEditor .GetVerbCount: Integer;
begin
Result := 1; //返回你在右键所加的菜单项的个数
end;
然后用如下方法注册:
RegisterComponentEditor(TMyComponent, TMyComponentEditor );
//TMyComponent 为你所写的组件
我的Delphi6好像没有TComponentEditor
new component的那个类里输入TComponentEditor,但好像没有,强行给它加上去但运行时就会出错,找不到。
没有其它办法了????
另外,我最想看的一本书好象没有译过来,原版也没见着。<Delphi Hidden Path>,专门讲解OpenTools API的编程,如果哪位见着了,请通知我一声,不胜感激。agui.csdn @ 263.net
DesignEditors这个单元也没有呀,看了一下帮助,好像是这么定义的
TMyComponentEditor = class(TComponentEditor)
但我使终找不到这个类,这个单元。你们怎么会有呢?