?? edit1.pas
字號:
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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -