Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Доброго времени суток, уважаемые эксперты!Какпоставить гиперссылку на картинку&&

Вопрос задал: vadim98 (статус: Посетитель) Вопрос отправлен: 5 сентября 2010, 13:17 Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: DNK

Здравствуйте, vadim98!
Для картинки выставляем свойство Cursor = crHandPoint. Пишем обработчик для события OnClick:

uses ShellAPI;
 
{$R *.dfm}
 
procedure TForm1.Image1Click(Sender: TObject);
Const
  URL : String = 'http://www.delphi.int.ru';
begin
  ShellExecute(0,'open',pChar(URL),NIL,NIL,SW_SHOWNORMAL);
end;

Ответ отправил: DNK (статус: Студент) Время отправки: 8 сентября 2010, 16:03

Мини-форум вопроса

Ерёмин А.А. (статус: *Администратор), 5 сентября 2010, 13:45 [#1]: Точно так же, как и гиперссылку на страницу, разве нет?

SOA (статус: Посетитель), 5 сентября 2010, 14:02 [#2]: Если я все правильно понял, должно помочь http://www.delphiexpert.ru/view_lesson.php?id=57

Ximer (статус: Посетитель), 5 сентября 2010, 22:18 [#3]: Не помню, если там есть onChange то, те же действия что и на метку (Label1Click).

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.