type
TForm1 = class(TForm)
Edit1: TEdit;
procedure FormCreate(Sender: TObject);
private
Old:TwndMethod;
procedure NewMethod(Var Message:TMessage);
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
Old:=Edit1.WindowProc;
Edit1.WindowProc:=NewMethod;
end;
procedure TForm1.NewMethod(var Message: TMessage);
begin
if Message.Msg<>WM_SETCURSOR then
Old(Message);
{如果既不要输入光标,也不要焦点则可以这样}
if (Message.Msg<>WM_SETCURSOR) and (Message.Msg<>WM_SETFOCUS) then
Old(Message);
end;