myedit.pas

关于利用DELPHI来进行企业级方案解决的著作的附书源码

unit myedit;

interface

uses Windows,Messages,SysUtils,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls;

type
    Tmyedit=class(TEdit)
    private
     {Private declarations}
    protected
     {Protected declarations}
     {other fields and methods}
     procedure WndProc(var message:TMessage);override;
    public
     {Public declarations}
    published
     {Published declarations}
    end;

procedure Register;

implementation

procedure Register;
begin
     RegisterComponents('Samples',[Tmyedit]);
end;

procedure Tmyedit.WndProc(var message:TMessage);
begin
    if message.msg=wm_mousemove then
    begin
      cursor:=crarrow;
      {设置光标为crarrow,而不是缺省的crBeam光标}
      exit;
    end;
    if message.msg=wm_SetFocus then exit;
    {屏蔽掉WM_setfocus消息,不让Tmyedit控件获得输入焦点}
    inherited wndproc(message);
    {其他消息交父辈wndproc处理}
end;

end.