Прежде чем задавать вопрос - поищите его в поиске!
0 голосов
113 просмотров

 

Как сделать при нажатии кнопку, чтобы тебя перекинули в браузер на (какую-то ссылку) ?

 

спросил 23 Апр, 15 от Vladislav Urlapov в категории Мастер Delphi | 113 просмотров

1 Ответ

0 голосов
Лучший ответ

1. Добавим компонент label на форуму (палитра компонентов->вкладка Standart->Label1). В свойстве caption указываем текст ссылки.

2. Два раза кликаем по компоненту Label1 ЛКМ (левой клавишей мыши) .
3. Добавляем  следующий код между begin и end:

ShellExecute(application.Handle,'Open','link',Nil,Nil,SW_SHOWDEFAULT);


где link - ссылка на Ваш сайт.
4. В раздел описания модулей (Uses) допишем в конец модуль ShellApi.

Все теперь ссылка сделана, но нет никаких признаков, что это ссылка, просто текст, который при клике введет на сайт. Для красивого оформления надписи задаем параметры текста во вкладке (Font) в нем задаем  тип шрифта , начертания и размер.

Для того чтобы наш курсор изменялся при наведении на ссылку, нужно изменить свойство Cursor и выбираем нужный курсор, я предпочитаю rHandPoint.

Ну а чтобы при наведении на ссылку текст она подчеркивалась, как это обычно бывает нужно в параметрах label на вкладке events создаем обработку событий MouseMove и MouseLeave. далее в событие MouseMove нужно вставить строку

Label1.Font.Style:=Label1.Font.Style+[fsUnderline];

а в MouseLeave:

Label1.Font.Style:=Label1.Font.Style-[fsUnderLine];

Вот и все наша ссылка готово и оформлена.

ответил 23 Апр, 15 от krotovroman Мастер (131,190 баллов)
выбран 23 Апр, 15 от krotovroman

Похожие вопросы

0 голосов
1 ответ
спросил 11 Янв, 16 от Рам в категории Мастер Delphi | 49 просмотров
0 голосов
1 ответ
513 вопросов
694 ответов
426 пользователей