Изменение картинки при наведении курсора!

[Serge_Bliznykov]

У меня обычный Delphi 7. Блин по сути должно работать!

Ну в EVENTS такого события нету!

ну и как оно бы работало??!!

решение проблемы - самый простой способ - перейти на другую версию Delphi
(хотя бы на Delphi 2006 - можно даже Portable взять).
если это по какой-то причине невозможно, тогда посмотрите сюда:
результаты поиска: Добавление события OnMouseLeave Delphi

[eduard93]

В делфи7 у имейджа действительно нету OnMouseLeave. Так что единственный вариант - делать как предложил MyLastHit. Только нужно знать, куда этот код прописать. В данном случае требуется создать наследника от TImage. Можно так: http://delphikingdom.com/asp/viewite...catalogid=1367

Добавлено: Serge_Bliznykov одновременно запостили почти одно и то же

[alexprey]

procedure image1OnMouseLeave(var msg: TMessage);
в этой строчке добавь обработчик. message CM_MOUSELIAVE

[psycho-coder]

А когда программа заработает, попробуйте быстро навести мышку на картинку и быстро убрать мышку. Тогда программа может повиснуть)) Используйте ресурсы или ImageList.

[Arhangell]

хм, мб так подойдёт?))

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Image1: TImage;
    procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Image1.Picture.LoadFromFile('C:\1.jpg');
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
Image1.Picture.LoadFromFile('C:\2.jpg');
end;

end.

[eduard93]

Arhangell Оригинально Только нужно флаг завести, что нужное изображение уже загружено, а то эти события вызываются на каждый милиметр пробега мышки.

[MyLastHit]

Это плохенький способ... Самое последнее что можно сделать.
А вдруг рядом с этой картинкой, на небольшом расстоянии еще одна, тогда при рывке с одной картинки на другую, положение курсора на форме не успеет зарегистрироваться.
Врядли у автора на форме будет картинка и в радиусе 1-2см там ничего не будет

[[BeNdeR]]

Вы меня запутали!) Так лучше делать leave/enter?

[MyLastHit]

Да............

[cybervampire]

Ну если тебе нужно при наведении курсора менять картинку, то событие
MouseEnter
А если убрать картинку, то
MouseLeave
Как то так)