新建一个工程,放一个文本框,然后加入以下红色代码:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TEdit = class(StdCtrls.TEdit)
procedure WndProc(var Message: TMessage); override;
end; TForm1 = class(TForm)
Edit1: TEdit;
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
{ TEdit }
procedure TEdit.WndProc(var Message: TMessage);
begin
with Message do
if (Msg = WM_COPY) or (Msg = WM_CUT) or (Msg = WM_PASTE) then
Exit;
inherited
end;end.
http://bbs.csdn.net/topics/390319322
本站仅提供存储服务,所有内容均由用户发布,如发现有害或侵权内容,请
点击举报。