Изменение изображения при наведении мышки?

[Черничный]

(sender as TImage).Picture.LoadFromFile('heart 2_1.bmp'); так можно делать если многа компонентов. У одного делаешь так. Все сотальные в events настраиваешь на этот компонент и все.

[vovk]

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

ну сделай для всех бутонов такую процедуру

Хм а если с имиджа курсор переходит сразу на рабочий стол или на чужое окно то и туда таки процедуры впаять? я за ловушку, то биш хук.

[xakkkkker]

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

Хм а если с имиджа курсор переходит сразу на рабочий стол или на чужое окно то и туда таки процедуры впаять? я за ловушку, то биш хук.

можно взять таймер и сделать так чтобы если курсор изменил координаты то сделать измененеия в имадже

[Arkuz]

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

можно взять таймер и сделать так чтобы если курсор изменил координаты то сделать измененеия в имадже

Я тоже предлагал такой вариант когда-то с таймером, но это не рациональный способ

[Arkuz]

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

Хм а если с имиджа курсор переходит сразу на рабочий стол или на чужое окно то и туда таки процедуры впаять? я за ловушку, то биш хук.

А расскажите про ловушку, это что такое?

[vovk]

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

А расскажите про ловушку, это что такое?

Вот тут немного есть

[xakkkkker]

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

Я тоже предлагал такой вариант когда-то с таймером, но это не рациональный способ

но ведь так тоже работает

[v-victoria]

так и ничего не поняла как изменять изображение при наведении мышки?????????

[kinderproc]

Создаешь свой класс:

TMyImage = class(TImage)
    procedure CmMouseEnter(var Mes: TMessage); message СM_MOUSEENTER;
    procedure CmMouseLeave(var Mes: TMessage); message CM_MOUSELEAVE;
  end;

И пишешь следующий код, только вместо ShowMessage - вставишь процедуру загрузки картинок.

procedure TMyImage.CmMouseEnter(var Mes: TMessage);
begin
  ShowMessage('Мышь над компонентом');
end;

procedure TMyImage.CmMouseLeave(var Mes: TMessage);
begin
  ShowMessage('Мышь за пределами компонента');
end;

procedure TForm1.FormShow(Sender: TObject);
var
  MyImage: TMyImage;
begin
  MyImage := TMyImage.Create(Form1);
  MyImage.Parent := Form1;
  MyImage.Picture.LoadFromFile('C:\Program Files\Common Files\Borland Shared\Images\Splash\256Color\FACTORY.BMP');
end;

[DeKot]

To VVM

procedure TForm1.Image1MouseEnter(Sender: TObject);

procedure TForm1.Image1MouseLeave(Sender: TObject);

А эти процедуры как создаются.В Инспекторе вроде таких нет.А вручную Дельфи не пропускает. Пишет

Expected ' = ' but ' ( ' found