如何在右键菜单添加自定义的项目，能否添加到复制，剪切，粘贴一样内

yyok 2002-01-30 01:23:32

...全文

118 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

iBear 2002-01-30

打赏
举报

这得运用shell扩展了，在delphi的安装目录下的sample中就有关于这类编程的例子，仔细看看！

王集鹄 2002-01-30

打赏
举报

//标准控件
TEditCut = class(TEditAction)
public
procedure ExecuteTarget(Target: TObject); override;
end;

TEditCopy = class(TEditAction)
public
procedure ExecuteTarget(Target: TObject); override;
end;

TEditPaste = class(TEditAction)
public
procedure UpdateTarget(Target: TObject); override;
procedure ExecuteTarget(Target: TObject); override;
end;

TEditSelectAll = class(TEditAction)
public
procedure ExecuteTarget(Target: TObject); override;
procedure UpdateTarget(Target: TObject); override;
end;

TEditUndo = class(TEditAction)
public
procedure ExecuteTarget(Target: TObject); override;
procedure UpdateTarget(Target: TObject); override;
end;

TEditDelete = class(TEditAction)
public
procedure ExecuteTarget(Target: TObject); override;
{ UpdateTarget is required because TEditAction.UpdateTarget specifically
checks to see if the action is TEditCut or TEditCopy }
procedure UpdateTarget(Target: TObject); override;
end;