OnEnter Event für Image-Komponenten

[bitsetter]

Am einfachsten wäre es natürlich so:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TImage = class(ExtCtrls.TImage)
  private
    FOnMouseEnter: TNotifyEvent;
    procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
  public 
    property OnMouseEnter: TNotifyEvent read FOnMouseEnter write FOnMouseEnter;
  end;

type
  TForm1 = class(TForm)
    Image1: TImage;
    procedure FormCreate(Sender: TObject);
  private
    procedure ImageMouseEnter(Sender: TObject);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TImage.CMMouseEnter(var Message: TMessage);
begin
  if assigned(FOnMouseEnter) then
    FOnMouseEnter(Self);
end;

procedure TForm1.ImageMouseEnter(Sender: TObject);
begin
  Showmessage(format('%s onMouseEnter', [TImage(Sender).Name]));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Image1.OnMouseEnter:= ImageMouseEnter;
end;

end.

EDIT: getestet unter Delphi 6