Четверг, 21.06.2018, 22:37
Главная Регистрация RSS
Приветствую Вас, Гость
Меню сайта
Категории раздела
Delphi [12]
С++ [0]
С# [1]
PHP [7]
Мини-чат
Наш опрос
Оцените мой сайт
Всего ответов: 23
Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0
Форма входа
Главная » 2011 » Октябрь » 9 » Гиперссылка из Label
12:16
Гиперссылка из Label

Не знаю почему, но у многих новичков возникает вопрос о том: как создать гиперссылку в своей программе ! Поэтому с целью уменьшить количество таких вопросов я создал этот урок. Ну что ж давайте начинать:

1. Открываем Delphi, создаем новый проект на форму кидаем компонент, label с закладки standard. Сразу же давайте изменим у него цвет и размер шрифта. Делается это все в свойстве Font. Цвет я поставил синий, а шрифт сделал жирным, далее в свойстве Cursor компонента Label выберите crHandPoint Делается это для того что бы при наведении на ссылку курсор приобретал форму пальчика.

2. Так теперь нам нужно указать Адрес Web ресурса на который будет попадать пользователь при клике по ссылке. Адрес будем указывать в свойстве Hint компонента Label. Т.Е прописываем там например http://my-programm.ucoz.net/

3. Все предварительная подготовка завершена. Сейчас в верху, после ключевого слова uses допишите SHELLAPI, теперь выделяем компонент Label и создаем на нем обработчик событий OnClick. Полный код того что должно находиться в обработчике представлен ниже, допишите к себе недостающие строки.

procedure TForm1.Label1Click(Sender: TObject);
begin
If (Sender is TLabel) then
with (Sender as Tlabel) do
ShellExecute(Application.Handle,PChar('open'),
PChar(Hint),
PChar(0),
nil,
SW_NORMAL);
end;
Категория: Delphi | Просмотров: 274 | Добавил: vavilov8 | Теги: Гиперссылка, Dephi, label | Рейтинг: 0.0/0
Всего комментариев: 0
Имя *:
Email *:
Код *: