Действие:
Кидаю на форму ТImage, потом в Properties указываю рисунок Untitled1.jpg
Вопрос:
Как сделать чтоб при наведении на этот рисунок он поменялся на Untitled2.jpg
delphi: Вопрос по TImage (начинающий)
Модераторы: Duncon, Naeel Maqsudov, Игорь Акопян, Хыиуду
-
- Сообщения: 230
- Зарегистрирован: 31 авг 2006, 13:11
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
image1.Picture.LoadFromFile('С:\image2.jpg');
end;
Y: Integer);
begin
image1.Picture.LoadFromFile('С:\image2.jpg');
end;
А потом, ежели надо, чтобы картинка возвращалась старая - тот же самый обработчик, но уже со старой картинкой, вешаем на саму форму.
Желательно, думаю, флаг загруженности установить, чтобы не перегружать одно и то же изображение по двадцать раз
Желательно, думаю, флаг загруженности установить, чтобы не перегружать одно и то же изображение по двадцать раз
Искусство программирования - заставить компьютер делать все то, что вам делать лень.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.
Для "спасибо" есть кнопка "Спасибо" в виде звездочки внизу под ником автора поста.