Image наведение

[Kamalekb]

Добрый вечер.
Возник такой вопрос, на форме 3 image.
Как при наведении на ОПРЕДЕЛЕННЫЙ image загружался другой рисунок.

Сделал так:

type
  TImage = class(ExtCtrls.TImage)
  private
    procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
    procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;

procedure TImage.CMMouseEnter(var Message: TMessage);
begin
   //здесь обрабатывает сразу все image, а мне нужно по отдельности
end

procedure TImage.CMMouseLeave(var Message: TMessage);
begin
  // тоже самое
end;

Если можно, то поподробнее!

[BDA]

Вот примерчик.

[Kamalekb]

Спасибо, только разобрался.
Этот проект сделан на rad studio, там уже есть Событие MouseLeave и MouseEnter.

[Kamalekb]

Не разобрался (
При наведении на любой image, программа считает что наведено на все image (я про свой код)
Проект сделан на delphi 2007

[BDA]

Так назначьте каждому изображению свои mouseenter и mouseleave (в моем пример так и сделано).

[=master=]

При наведении на любой image, программа считает что наведено на все image (я про свой код)

как так ?

[Kamalekb]

Сообщение от =master=

как так ?

type
  TImage = class(ExtCtrls.TImage)
  private
    procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
    procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;

procedure TImage.CMMouseEnter(var Message: TMessage);
begin
// здесь будут обрабатываться все image, никакую проверку не проходит
end

procedure TImage.CMMouseLeave(var Message: TMessage);
begin
// и тут 
end;

Вот при обработки событий, будут заливать все image

[=master=]

Посмотрите, например, как это реализованно в StdCtrls.pas.
Там есть примеры.