【delphi开源代码栏目提醒】:网学会员鉴于大家对delphi开源代码十分关注,论文会员在此为大家搜集整理了“MoveImageButton.pas”一文,供大家参考学习
unit MoveImageButton;
interface
uses
Windows, Messages, SysUtils, Classes, Controls, ExtCtrls,Graphics;
type
TMoveImgBtn = class(TImage)
private
{ Private declarations }
procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
procedure CMEnabledChanged(var Message: TMessage); message CM_ENABLEDCHANGED;
protected
{ Protected declarations }
public
{ Public declarations }
constructor Create(aOwner: TComponent); override;
destructor Destroy; override;
published
{ Published declarations }
property Action;
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('Wuqiu', [TMoveImgBtn]);
end;
procedure TMoveImgBtn.CMMouseEnter(var Message: TMessage);
begin
inherited;
if self.Enabled then
begin
Left:=Left-1;
Top:=Top-1;
end;
end;
procedure TMoveImgBtn.CMMouseLeave(var Message: TMessage);
begin
inherited;
if self.Enabled then
begin
Left:=Left+1;
Top:=Top+1;
end;
end;
procedure TMoveImgBtn.CMEnabledChanged(var Message: TMessage);
begin
inherited;
Invalidate;
end;
constructor TMoveImgBtn.Create(aOwner: TComponent);
begin
inherited Create(aOwner);
Cursor:=crHandPoint;
AutoSize:=true;
end;
destructor TMoveImgBtn.Destroy;
begin
inherited Destroy;
end;
end.
上一篇:
frm_gysgl.frm
下一篇:
浅析企业文化在企业中的位置与深植