тільки корисні матеріали
Головний акціонер Alibaba став найбагатшою людиною в Китаї
статті
Microsoft почала закрите тестування Office 16
статті
Фахівці знайшли діри в безпеці Windows 8.1
статті
У московському метро з'явиться єдина мобільна мережа
статті
eBay буде приймати Bitcoin
статті
Vivitek представила «шкільний» проектор D755WTIR
статті
У Твіттері з'явилася кнопка «Купити»
статті
«Яндекс.Новини» тепер можна переглядати і на iPhone
статті
Не знаю чому, але у багатьох новачків виникає питання про те: як створити гіперпосилання в своїй програмі. Тому з метою зменшити кількість таких питань я створив цей урок. Ну що ж давайте починати:
1. Відкриваємо Delphi. створюємо новий проект на форму кидаємо компонент, label з закладки standard. Відразу ж давайте змінимо у нього колір і розмір шрифту. Робиться це все у властивості Font. Колір я поставив синій, а шрифт зробив жирним, далі у властивості Cursor компонента Label виберіть crHandPoint Робиться це для того що б при наведенні на посилання курсор набував форму пальчика.
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;
Ось і все буквально за 3 кроки ви навчилися створювати гіперпосилання в своїй програмі.
До зустрічі Delphi Expert.ru.