Консультация № 68545
25.12.2006, 17:06
0.00 руб.
0 3 3
Здраствуйте. Помогите пожалйуста. На форме написан текст в виде адреса сайта (www.hiper-text.ru). Как сделать так, что бы при клике на нем открывался браузер и грузилась эта страница.

Обсуждение

Неизвестный
25.12.2006, 17:22
общий
это ответ
Здравствуйте, Костенко Игорь Викторович!
Пусть текст находится в Label1, тогда в обработчик OnClick у вас должен принять следующий вид:

TLabel.Label1Click(Sender: TObject);
begin
ShellExecute(nil, ‘open‘, PChar(‘http://‘ + Label1.Text + ‘/‘), nil, nil, SW_NORMAL);
// либо
ShellExecute(nil, PChar(‘http://‘ + Label1.Text + ‘/‘), nil, nil, nil, SW_NORMAL);
end;

Уточняйте, если вы хотели что-то другое.
Неизвестный
25.12.2006, 17:30
общий
это ответ
Здравствуйте, Костенко Игорь Викторович!

Если текст- это Label тогда код пишем по событию onClick лабела
если на форме, тогда нужна обработка onMouseDown где определяем по координатам х и у на нашей надписи ли нажата мыша.

далее встает вопрос запускать в каком обозревателе, если в том, который в делфе на вкладке Internet, тогда Navigator.Navigate(URL: WideString);
Если внешний, то через WinExec(PChar(FileName+‘ ‘+URL), wsNormal);, Где FileName полный путь и имя внешнего навигатора.

Можно еще конечно покапаться с реестром, используя TRegistry описанного в модуле Registry, и определить бровзер по умолчанию, но это другая тема !

УДАЧИ

Неизвестный
25.12.2006, 17:55
общий
это ответ
Здравствуйте, Костенко Игорь Викторович!
ShellEXECUTE();
Форма ответа