Mega Code Archive
How to create a simple mouse over button
<![CDATA[
Title: How to create a simple mouse-over button?
Question: mouse-over
Answer:
unit CCActiveButton;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TCCActiveButton = class(TButton)
private
{ Private declarations }
protected
{ Protected declarations }
procedure MouseEnter (var Msg: TMessage);
message cm_mouseEnter;
procedure MouseLEave( var Msg: TMessage);
message cm_mouseLeave;
public
{ Public declarations }
published
{ Published declarations }
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('CC', [TCCActiveButton]);
end;
{ TCCActiveButton }
procedure TCCActiveButton.MouseEnter(var Msg: TMessage);
begin
Font.Style := Font.Style + [fsBold,fsUnderLine];
end;
procedure TCCActiveButton.MouseLEave(var Msg: TMessage);
begin
Font.Style := Font.Style - [fsBold,fsUnderline];
end;
end.
]]>