Событие OnMouseMove, Компонент Image Опции

[Cheburashka]

Пытаюсь сделать так, чтобы при наведении мышки на картинку, она изменялась на другую.
Правильно ли то, что я использую OnMouseMove? Как это сделать?

[Unconnected]

Самый простой вариант - сделать массив из путей к картинкам (понятное дело, картинки должны существовать по указанным путям).

var
  Form1: TForm1;
  pics:array[1..piccount] of string=('pictures\1.jpg','pictures\2.jpg');

implementation

{$R *.dfm}

procedure TForm1.Image1MouseEnter(Sender: TObject);
begin
  image1.Picture.LoadFromfile(pics[1]);
end;

procedure TForm1.Image1MouseLeave(Sender: TObject);
begin
  image1.Picture.LoadFromfile(pics[2]);
end;

end.

Только в Uses надо добавить модуль Jpeg. Ещё можно загружать из ресурсов.
И ещё, если в программе используются Dialogs (TOpenDialog или что-то подобное), то желательно указывать абсолютные пути.

Сообщение отредактировано: Unconnected - 6.06.2010 0:33