Question

如何实现richedit右键菜单的复制粘贴功能

若以下回答无法解决问题，邀请你更新回答

Answer 1

比如这个过程就屏蔽了窗体上所有的右件菜单unit Unit1;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, Outline, DirOutln, ComCtrls;type TForm1 = class(TForm) Edit1: TEdit; Button1: TButton; procedure FormCreate(Sender: TObject); procedure MyDefineProcedure(var Msg: TMsg; var Handled: Boolean); private public end;var Form1: TForm1;implementation{$R *.DFM}procedure TForm1.MyDefineProcedure(var Msg: TMsg; var Handled: Boolean); begin if msg.message=WM_RBUTTONDOWN then msg.message:=WM_NULL; end;procedure TForm1.FormCreate(Sender: TObject);begin application.OnMessage:=MyDefineProcedure;end;end. 查看原帖>>