How to simulate OnMouseIn and OnMouseOut event with Delphi  ?
(these events are used in Javascript)

I want to simulate actions like in a a web page.

Thanks.

How to simulate OnMouseIn and OnMouseOut event with Delphi  ?
(these events are used in Javascript)

I want to simulate actions like in a a web page.

Thanks.

--
Marko Peric     lonew...@tig.com.au

unit MImage;

interface

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

type
  TMImage = class(TImage)
  private
    FOnMouseEnter: TNotifyEvent;
    FOnMouseLeave: TNotifyEvent;
    procedure CMMouseEnter(var Msg: TMessage); message CM_MOUSEENTER;
    procedure CMMouseLeave(var Msg: TMessage); message CM_MOUSELEAVE;
  protected
  public
  published
    property OnMouseEnter: TNotifyEvent read FOnMouseEnter write FOnMouseEnter;
    property OnMouseLeave: TNotifyEvent read FOnMouseLeave write FOnMouseLeave;
end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('My Components', [TMImage]);
end;

procedure TMimage.CMMouseEnter(var Msg: TMessage);

begin
  if Assigned(FOnMouseEnter) then FOnMouseEnter(Self);
end;

procedure TMimage.CMMouseLeave(var Msg: TMessage);

begin
  if Assigned(FOnMouseLeave) then FOnMouseLeave(Self);
end;

end.

--

Ralph Hilton

How to simulate OnMouseIn and OnMouseOut event with Delphi  ?
(these events are used in Javascript)

I want to simulate actions like in a a web page.

Thanks.

Thanks a lot and excuse me for the triple message !