| Название : Способ отправки файлов с TClientSocket & TServerSocket | |
| Название : Как получить список логических дисков? | |
| Название : Как добавить приложение в автозагрузку | |
| Название : Сохранение странички в файл из TWebBrowser | |
| Название : Как програмно отключить и включить мышь | |
| « Октябрь 2011 » | ||||||
| Пн | Вт | Ср | Чт | Пт | Сб | Вс |
| 1 | 2 | |||||
| 3 | 4 | 5 | 6 | 7 | 8 | 9 |
| 10 | 11 | 12 | 13 | 14 | 15 | 16 |
| 17 | 18 | 19 | 20 | 21 | 22 | 23 |
| 24 | 25 | 26 | 27 | 28 | 29 | 30 |
| 31 | ||||||
12:16 Гиперссылка из Label | |
Не знаю почему, но у многих новичков возникает вопрос о том: как создать гиперссылку в своей программе ! Поэтому с целью уменьшить количество таких вопросов я создал этот урок. Ну что ж давайте начинать: 1. Открываем Delphi, создаем новый проект на форму кидаем компонент, label с закладки standard. Сразу же давайте изменим у него цвет и размер шрифта. Делается это все в свойстве Font. Цвет я поставил синий, а шрифт сделал жирным, далее в свойстве Cursor компонента Label выберите crHandPoint Делается это для того что бы при наведении на ссылку курсор приобретал форму пальчика. 2. Так теперь нам нужно указать Адрес Web ресурса на который будет попадать пользователь при клике по ссылке. Адрес будем указывать в свойстве Hint компонента Label. Т.Е прописываем там например http://my-programm.ucoz.net/
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; | |
|
| |
| Всего комментариев: 0 | |