Създаване на хипервръзка в Делфи - Delphi източници често задавани въпроси

В действителност, за да създадете хипервръзка в Делфи е много проста. След това алгоритъмът е: ние поставяме от формата на етикета (а TLabel), дай го на външния вид на позната гледка за нас хипервръзки в нашия браузър (разгледаме един пример на IE), и пишат на събитието манипулатор OnClick.

Да можем да използваме непрекъснато хипервръзка в нашите програми, ние ще създадем компонент!

Сега ние ще се занимава с един прост пример със създаването на връзки в Делфи, сложи и след това изпълни всички на компонента. Започваме с това, което ние поставяме от формата на нашия проект марки (TLabel), нека името й ще остане Label1. Сега пиша събитие манипулатор OnClick за него:

Сега ще обясня какво сме написали тук. функция ShellExecute се използва, за да отворите или да отпечатате файла като изпълним и документ. Първият параметър е дръжката на прозореца родител, вторият параметър - низ определя какво да прави с файла, третият параметър съдържа името на файла, за да се отвори, четвъртия параметър определя допълнителни параметри на изпълнимия файл петият параметър определя директорията по подразбиране, последния параметър определя къде ще се покаже файла след oktrytiya.

Между другото, ако се опита да изпълни код по-горе, това е вероятно, че не работи, тъй като функцията ShellExecute е в ShellAPI модул, който, разбира се, трябва да се добави към секцията за употреба на код в нашата молба.

Сега помислете варианти за нашия случай:

Трябва да се отбележи, че на втория и третия параметрите на функцията са нула прекратени низове, т.е. такива като PChar струни, така че да използва функциите в името на файла, получени от OpenDialog1, ще трябва да използвате PChar (OpenDialog1.Filename).

Сега, в събитието манипулатор OnCreate образува необходимо да се напише:

В манипулатор събитие OnMouseDown етикет пишем:

И в събитието манипулатор OnMouseUp нашата марка, ние ще напише:

За да се направи пълен реализма на нашата връзка, е необходимо да се определят имота етикет Курсор crHandPoint. Т.е. когато задържите показалеца върху линка ще бъде под формата на ръка познат ни с показалеца си и да се свържат подчертани.

Като клас родител (Предците тип), ние със сигурност трябва да изберете TLabel.

Ето и пълния код модул Link клас Tlink компоненти (модули в текста трябва да бъдат запазени Link.pas файл):

Така че ние се справиха със създаването на хипервръзки в Делфи, постави се оказа много проста!