🚀 go-pugleaf

Have a look at one of my components that includes cm_mouseEnter and
cm_mouseLeave



unit JpURLLabel;

interface

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

type
  TJpURLLabel = class(TCustomLabel)
  private
     FURL_Text  : string;
    { Private declarations }
  protected
    { Protected declarations }
    procedure Click; override;
    procedure MouseEnter (var Msg: TMessage);
      message cm_mouseEnter;
    procedure MouseLeave (var Msg: TMessage);
      message cm_mouseLeave;
  public
    constructor Create(AOwner : TComponent); override;
    procedure Action;
    { Public declarations }
  published
    { Published declarations }
    property OnClick;
    property URL_Text : string read FURL_Text write FURL_Text;
    property Align;
    property Alignment;
    property Autosize;
    property Caption;
    property Color;
    property DragCursor;
    property DragMode;
    property Enabled;
    property FocusControl;
    property Font;
    property ParentColor;
    property ParentFont;
    property ParentShowHint;
    property PopUpMenu;
    property ShowAccelChar;
    property ShowHint;
    property Transparent;
    property Layout;
    property Visible;
    property WordWrap;
    property OnDragDrop;
    property OnDragOver;
    property OnEndDrag;
    property OnMouseDown;
    property OnMouseMove;
    property OnMouseUp;
    property OnStartDrag;
  end;

var
  oldCol:integer;

procedure Register;

implementation

constructor TJpURLLabel.Create(AOwner : TComponent);
begin
  inherited;
  FURL_Text:='mailto:jpsoft@image.dk';
  caption:=FURL_Text;
  font.color:=clBlue;
  font.style:=font.style+[fsUnderline];
  cursor:=crHandPoint;
end;

procedure TJpURLLabel.Action;
var
  s:string;
begin
  if FURL_Text='' then
    Exit;
  shellExecute(0, nil, pChar(FURL_Text), nil, nil, sw_shownormal);
end;

procedure TJpURLLabel.Click;
var
  s:string;
begin
  if FURL_Text='' then
    Exit;
  shellExecute(0, nil, pChar(FURL_Text), nil, nil, sw_shownormal);
  inherited Click;
end;

procedure TJpURLLabel.MouseEnter(var Msg: TMessage);
begin
  oldCol:=Font.Color;
  Font.Color := clRed;
end;

procedure TJpURLLabel.MouseLeave(var Msg: TMessage);
begin
  Font.Color:=oldCol;
end;

procedure Register;
begin
  RegisterComponents('JPSoft DK', [TJpURLLabel]);
end;

end.


--
Mvh. JPSoft DK
jpsoft@jpsoft.dk
http://www.jpsoft.dk

Bes�g JPSoft DK for de seneste programmer og opdateringer.
Tilmeld dig JPSoft DK Mail-info hvis du automatisk vil informeres
om �ndringer hos JPSoft DK.
Alan MacArthur <alan.s.macarthur@boeing.com> skrev i en
nyhedsmeddelelse:3731D799.F79@boeing.com...
> Eric wrote:
> >
> > Hello,
> >
> > Would you please to give me a simple example to implement MouseEnter and
> > MouseExit on SpeedButton ????
> >
> > Best regards,
> > Eric
> >
> > --
> >      _                                                  _
> >     / ) |~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~| ( \
> >    / /  |                                            |  \ \
> >  _( /_  | _   Chow Hoi Ka, Eric                    _ |  _) )_
> > (((\ \> |/ )                                      ( \| </ /)))
> > (\\\\ \_/ /   E-Mail : d951686@sftw.umac.mo        \ \_/ ////)
> >  \       /                                          \        /
> >   \    _/     http://www.sftw.umac.mo/~d951686/      \_     /
> >   /   / |____________________________________________| \    \
> >  /   /                                                   \    \
>
> It's a private procedure.