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

[lionman]

Как сделать чтобы наводя на image курсор картинка менялась, а убирая курсор с imaga’а картинка менялась обратно.

[BOBAH13]

Что менеялось на что и как ? Опять надо звонить экстрасексу.

[xakkkkker]

обработай эту процедуру она возникает при наведении мышки на имадж

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Form1.Caption:='Мышка наведена на имадж';
end;

[lionman]

Ну например как на кнопку наводишь она меняет свой цвет. Меняется само изображение

[xakkkkker]

чтобы изменить имадж после убратия мышки сделай такую же процедуру для формы

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Form1.Caption:='Мышка убрана с имиджа';
end;

[BOBAH13]

нельзя сравнивать TImage и TButton ( т.к. один имеет хендл - т.е. окно, а другой нет ) по этому это разные вещи совершенно. Если есть возможность не использовать Image то лучше создайте свой контрол или регируйте на сообщения ( VCL CM_MOUSEENTER, CM_MOUSELEAVE вроде так ) а так же для Windows - WM_MOUSELEAVE и вроде WM_MOUSEHOVER для того чтобы их использовать смотрите MSDN и информацию в сети. Если нужен именно TImage то тогда чтобы не пудрить себе и людям мозги ставьте локальный хук на WH_MOUSE и проверяйте что находится под мышью.

p.s. ну реально народ ) не ответы а спам какой-то

[xakkkkker]

вот исходник

[vovk]

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

чтобы изменить имадж после убратия мышки сделай такую же процедуру для формы

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Form1.Caption:='Мышка убрана с имиджа';
end;

а если мышка ушла не на форму, а к примеру на кнопку? и вокруг впритирку ещё 15 компонентов?

[VVM]

Только сегодня это делал =)

procedure TForm1.Image1MouseEnter(Sender: TObject);
begin
  Image1.Picture.LoadFromFile('heart2_1.bmp');
end;

procedure TForm1.Image1MouseLeave(Sender: TObject);
begin
  Image1.Picture.LoadFromFile('heart2.bmp');
end;

З.Ы. вместо "heart2_1.bmp" и "heart2.bmp" надо подставить свои картинки.

[xakkkkker]

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

а если мышка ушла не на форму, а к примеру на кнопку? и вокруг впритирку ещё 15 компонентов?

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