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

[Cheburashka]

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

[Client]

OnMouseEnter мне кажется будет лучше. Так при малейшем движении мыши над компонентом будет меняться

[Cheburashka]

Допустим даже так. Приведите пример пожалуйста, а то у меня не получается ее изменить.

Image1.Picture := ????????;

Что нужно написать?

[Client]

Можно хранить в массиве адрес рисунка и загружать рисунок Image1.Picture.LoadFromFile(путь)

[Cheburashka]

Как проверить наличие того или иного изображения на форме?
Если 1.jpg тогда ...
иначе ...

[Client]

из Image нельзя вытянуть название файла. работая с файлами через массив, список можно по номерам легко обращаться к нужному файлу

[Cheburashka]

В таком случае массив типа TPicture создавать?
И как тогда в него загрузить изображение?

Сообщение отредактировано: Сергей Меркурьев - 5.06.2010 10:13

[volvo]

В таком случае массив типа TPicture создавать?

В таком случае лучше описать задачу как следует, а не так, как понятно только тебе. Напоминаю: изначально вопрос стоял так:

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

Никакого упоминания о том, что у тебя несколько картинок, никакого упоминания о том, что тебе надо отслеживать, какие картинки на форме присутствуют в настоящий момент, НИЧЕГО... Тебе сказали, как решать то, о чем ты спросил. Дал бы сразу всю информацию - подсказали бы правильное решение твоей проблемы. А так...

Максимум, чего могу посоветовать - это прочитать вот это

[Cheburashka]

Просто напросто тут одна проблема вытекает из другой.
У меня есть две картинки. Как мне уже сказали, мне нужно создать массив для их хранения. Как мне сделать это? И как мне обращаться к тому или иному изображению?

[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 - 5.06.2010 20:33

[Cheburashka]

А у меня нету MouseEnter and MouseLeave

[Unconnected]

А у экземпляра TImage такое событие есть

//ты же кинул его на форму?

Сообщение отредактировано: Unconnected - 5.06.2010 20:39

[Cheburashka]

Вот скриншот, посмотрите.

[Unconnected]

Аа, в Delphi 7 нету, значит... Тогда - всё тоже самое - только берём обработчики OnMove имаджа и формы.

var mmove:boolean=false;

implementation
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if mmove then begin
    mmove:=false;
    image1.Picture.LoadFromFile(pics[2]);
  end;
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if not(mmove) then begin
    mmove:=true;
    image1.Picture.LoadFromFile(pics[1]);
  end;
end;

Сообщение отредактировано: Unconnected - 5.06.2010 21:10

[Cheburashka]

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

[Client]

пора бы уже код привести...
возможно надо указать путь ".\1.jpg"

Сообщение отредактировано: Client - 6.06.2010 9:53

[Cheburashka]

Код ничем ни отличается от вашего.

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

implementation

{$R *.dfm}

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if not(mmove) then begin
    mmove:=true;
    image1.Picture.LoadFromFile(pics[1]);
  end;

end;


procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if mmove then begin
    mmove:=false;
    image1.Picture.LoadFromFile(pics[2]);
  end;
end;

Но все равно пишет тоже самое, что не может найти изображение.

[volvo]

var
  pics:array[1..2] of string=('1.jpg', '2.jpg');

// ...
function FullPath(p: string): string;
begin
  result := ExtractFilePath(Application.ExeName) + p;
end;

// ...
image1.Picture.LoadFromFile(FullPath(pics[1]));

Не надо думать, что рабочая папка останется таковой всегда. Как только вызывается любой диалог сохранения/открытия файла - это может привести к тому, что текущая (рабочая) папка изменится. Единственный вариант - отслеживать местоположение EXE-файла.

[Client]

а GetCurrentDir возвращает же тоже папку с ЕХЕ ?
создал файлы с ЕХЕ в одной папке и все работает

[Cheburashka]

Тогда что мне делать? Заново пересоздал проект, и ничего... Все тоже самое