Ссылки

← →
PycUS (2002-07-01 22:12) [0]

4. Как сделать ссылку на сайт, что бы при клике запускался IE.

← →
Viewer (2002-07-01 22:31) [1]

uses ShellAPI;
..

*.OnClick..
..
ShellExecute(GetDesktopWindow(), nil, PChar("delphi.mastak.ru"), nil, nil, 0);

← →
Юрий Зотов © (2002-07-01 22:37) [2]

В обработчике клика по этой ссылке пишем:

ShellExecute(0, nil, PChar(ссылка_в_виде_строки), nil, nil, 0);

Правда, запустится не обязательно IE. Запустится браузер по умолчанию - тот, который юзеру и нужен.

← →
PycUS (2002-07-04 21:48) [3]

Кинул это на StaticText1. При нажатии ни чего не грузится

← →
Viewer (2002-07-04 22:01) [4]

С превеликим удовольствием грузиться

ShellExecute(GetDesktopWindow(), nil, PChar(" http://www.aport.ru"), nil, nil, 0);

А я делал так:

ShellExecute(Application.Handle, nil,PChar(lblweb.Caption), nil, nil, SW_NORMAL )

ЗЫ: Нашёл это где-то в компонентах типа URLLabel

Ссылки Найти похожие ветки