IPB
ЛогинПароль:

> ВНИМАНИЕ!

Прежде чем задать вопрос, смотрите FAQ.
Рекомендуем загрузить DRKB.

> Событие OnMouseMove, Компонент Image
Cheburashka
сообщение 5.06.2010 8:29
Сообщение #1


Бывалый
***

Группа: Пользователи
Сообщений: 195
Пол: Мужской
Реальное имя: Сергей

Репутация: -  2  +


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


--------------------
♣♣♣
"Себя великим не считай, гордясь величьем предков,
Величья не добудешь ты и золота ценою!
Хоть светит на небе луна, но отраженным светом -
Чужою славой не живи, не будь второй луною!!!"
♣♣♣
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
TarasBer
сообщение 7.06.2010 11:45
Сообщение #2


Злостный любитель
*****

Группа: Пользователи
Сообщений: 1 755
Пол: Мужской

Репутация: -  62  +


Цитата

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

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


А зачем каждый раз винт теребить?

procedure TForm1.Image1MouseEnter(Sender: TObject);
begin
image1.Picture := Buf1.Picture;
end;

procedure TForm1.Image1MouseLeave(Sender: TObject);
begin
image1.Picture := Buf2.Picture;
end;


Buf1 и Buf2 - невидимые компоненты типа TImage с заранее загруженными картинками.


--------------------
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Сергей Меркурьев   Событие OnMouseMove   5.06.2010 8:29
Client   OnMouseEnter мне кажется будет лучше. Так при мале...   5.06.2010 8:39
Сергей Меркурьев   Допустим даже так. Приведите пример пожалуйста, а ...   5.06.2010 8:43
Client   Можно хранить в массиве адрес рисунка и загружать ...   5.06.2010 9:12
Сергей Меркурьев   Как проверить наличие того или иного изображения н...   5.06.2010 9:22
Client   из Image нельзя вытянуть название файла. работая с...   5.06.2010 9:57
Сергей Меркурьев   В таком случае массив типа TPicture создавать? И к...   5.06.2010 10:13
volvo   В таком случае лучше описать задачу как следует, а...   5.06.2010 10:54
Сергей Меркурьев   Просто напросто тут одна проблема вытекает из друг...   5.06.2010 11:03
Unconnected   Самый простой вариант - сделать массив из путей к ...   5.06.2010 20:32
Сергей Меркурьев   А у меня нету MouseEnter and MouseLeave :blink:   5.06.2010 20:37
Unconnected   А у экземпляра TImage такое событие есть :) //ты ...   5.06.2010 20:38
Сергей Меркурьев   http://s47.radikal.ru/i115/1006/95/f60b65374264.jp...   5.06.2010 20:56
Unconnected   Аа, в Delphi 7 нету, значит... Тогда - всё тоже са...   5.06.2010 21:09
Сергей Меркурьев   Я поместил изображения в папку с проектом, но он п...   6.06.2010 9:39
Client   пора бы уже код привести... возможно надо указать ...   6.06.2010 9:52
Сергей Меркурьев   Код ничем ни отличается от вашего. var Form1: TF...   6.06.2010 9:58
volvo   var pics:array[1..2] of string=('1.jpg',...   6.06.2010 10:23
Client   а GetCurrentDir возвращает же тоже папку с ЕХЕ ? с...   6.06.2010 10:28
Сергей Меркурьев   Тогда что мне делать? Заново пересоздал проект, и ...   6.06.2010 10:32
volvo   Нет, как раз GetCurrentDir вернет текущую папку (с...   6.06.2010 10:37
Сергей Меркурьев   Причем тут вообще изменение текущей папки? :blink:   6.06.2010 10:40
Client   указывай полный путь к файлам и все. P.S. спасибо,...   6.06.2010 10:42
Сергей Меркурьев   pics:array[1..2] of string=('D:\Pr...   6.06.2010 10:59
TarasBer   А зачем каждый раз винт теребить? procedure TFor...   7.06.2010 11:45
Client   хм, у автора темы вроде как нету этих обработчиков...   7.06.2010 14:38
TarasBer   > да еще если картинок много, то что Ну тогда ...   7.06.2010 14:57
Сергей Меркурьев   Unconneсted, Вы писали следующее: var Form1: TFo...   2.10.2010 8:48
volvo   NameS как описано? Sprite - это что? Если Timage -...   2.10.2010 12:36
Сергей Меркурьев   Sprite - TBitMap NameS : array [1..3] of string; В...   2.10.2010 14:17
volvo   Стоп. Тогда вопрос - в другом. TBitmap не присутст...   2.10.2010 16:57
Сергей Меркурьев   Извините, что сразу не дал полную процедуру... Про...   2.10.2010 18:55


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 14.07.2025 23:26
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"