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

[KREGI]

Если тебе нужно изменение кнопки при наведении, то вот компонент

delphi компонент представляет из себя кнопку при наведении на которую происходит плавное изменение картинке на ней. А сейчас по подробнее:
После того как мы кинули компонент на форму ему нужно указать некоторые свойства:
1. EnterImage - картинка которая появиться при наведении на кнопку.
2. LeaveImage - картинка которая будет показываться когда пользователь еще не навел курсор на кнопку.
3. В свойстве Interval указываеться интервал смены картинок, по рекомендации автора он не должен привышать 5000, лично я указал 4500!
В архиве с компонентом есть Демка, так что я думаю вопросов по использованию быть не должно.
Установка: тут все предельно просто. Открываем Delphi в меню выбираем закладку Component -> Install Component -> Browse ->
выбираем файл eff_button.pas Жмем ОК.
На появившееся сообщение отвечаем положительно. Щёлкаем кнопку Install

[DeKot]

Изменение рисунка в Image просто реализуется следующим кодом. "Киньте" на форму компонент Image1 и используйте соответствующие события с вкладки Events Инспектора объектов :

var
  Form1: TForm1;

implementation

{$R *.dfm}

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

procedure TForm1.FormPaint(Sender: TObject);
begin
  Form1.Show;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Image1.Picture.LoadFromFile('Picture2.bmp');
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Image1.Picture.LoadFromFile('Picture1.bmp');
end;

end.

Вместо Image можно применять кнопки.Алгоритм аналогичен.

[вероника-kz]

Сообщение от 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" надо подставить свои картинки.

а где на image там такие события, что-то я не нашла

[вероника-kz]

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

Изменение рисунка в Image просто реализуется следующим кодом. "Киньте" на форму компонент Image1 и используйте соответствующие события с вкладки Events Инспектора объектов :

var
  Form1: TForm1;

implementation

{$R *.dfm}

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

procedure TForm1.FormPaint(Sender: TObject);
begin
  Form1.Show;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Image1.Picture.LoadFromFile('Picture2.bmp');
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  Image1.Picture.LoadFromFile('Picture1.bmp');
end;

end.

Вместо Image можно применять кнопки.Алгоритм аналогичен.

Круто! Только вот почему-то обратно картинку не меняет, когда курсор с картинки убираю...

[DomiNick]

TImage не оконный компонент... Можно попробовать подвесить TrackMouseIvent на MouseMove его родителя...

а где на image там такие события, что-то я не нашла

Их вручную добавили в класс... Точнее создали потомка с такими событиями (на стр.2)...