Событие MouseMove в Image

[XE5]

Во первых зачем копировать, если можно присвоить обработчик?
Во вторых чем дальше тем ещё кривее. Реально проще написать свой контрол, потомок Image, и добавить одну единственную процедуру обработки выхода мыши за пределы Image. И кстати есть ещё третий вариант. В интернете полно исходников самых разных кнопок, в том числе и с возможностью запиливать на них Image.

[northener]

Сообщение от XE5

По решению.
...
Вариантов решения два, и оба описаны выше по теме. Если версия делфи критична, то это свой контрол, написанный на базе исходников контролов от XE, если не критична, то соответственно исполнение программы на XE и выше.

Вроде как на киберфоруме один автор (достаточно уважаемый) в ответ ТС'у привел код который работает в Д7 и без написания своего контрола хоть на базе, хоть без базы. Я его проверить не смог ввиду полной "пересборки" своего домашнего компьютера. Я много раз пытал ТС проверил ли он тот код у себя, но в ответ тишина.

[Аватар]

Ну вот без своего контрола, но не удобно - на каждой форме при использовании переопределять класс TImage

unit Unit1;

interface

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

type
  TImage = class(ExtCtrls.TImage)
    procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
    procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
  end;
  TForm1 = class(TForm)
    Image1: TImage;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure Image1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
    b1,b2,b3: TBitmap;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

var InImage,Down: Boolean;

procedure TImage.CMMouseEnter(var Message: TMessage);
begin
  InImage:=True;
  if not Down then Form1.Image1.Picture.Assign(Form1.b3);
  inherited;
end;

procedure TImage.CMMouseLeave(var Message: TMessage);
begin
  InImage:=False;
  if not Down then Form1.Image1.Picture.Assign(Form1.b1);
  inherited;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  b1:=TBitmap.Create;
  b1.LoadFromFile('e:/b1.bmp');
  b2:=TBitmap.Create;
  b2.LoadFromFile('e:/b2.bmp');
  b3:=TBitmap.Create;
  b3.LoadFromFile('e:/b3.bmp');
  InImage:=False;
  Down:=False;
  Image1.Picture.Assign(b1);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  b1.Free;
  b2.Free;
  b3.Free;
end;

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  Down:=True;
  Image1.Picture.Assign(b2);
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  Down:=False;
  if InImage then Image1.Picture.Assign(b3) else Image1.Picture.Assign(b1);
end;

end.