edit1.pas

来自「为青岛一家公司做的条码打印管理」· PAS 代码 · 共 42 行

unit Edit1;

interface

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

type
  TEdit1 = class(TEdit)
  private
    PMouseEnter:TNotifyEvent;
    PMouseLeave:TNotifyEvent;
    procedure MouseEnterProc(var msg:TMessage);message CM_MOUSEENTER;
    procedure MouseLeaveProc(var msg:TMessage);message CM_MOUSELEAVE;
  protected
    { Protected declarations }
  public
    { Public declarations }
  published
    property OnMouseEnter:TNotifyEvent Read PMouseEnter Write PMouseEnter;
    property OnMouseLeave:TNotifyEvent Read PMouseLeave Write PMouseLeave;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Samples', [TEdit1]);
end;
procedure TEdit1.MouseEnterProc (var msg:TMessage);
begin
  if Assigned(PMouseEnter) then PMouseEnter(Self);
end;
procedure TEdit1.MouseLeaveProc (var msg:TMessage);
begin
  if Assigned(PMouseLeave) then PMouseLeave(Self);
end;
end.