Crearea unui hyperlink în Delfi - surse delphi faq

De fapt, pentru a crea un hyperlink în Delphi este foarte simplu. atunci algoritmul este: am pus pe forma etichetei (a TLabel), da aparența unei priviri familiare pentru a ne hyperlink-uri în browser-ul nostru (uita-te la un exemplu de IE), și scrie tratare a evenimentului OnClick.

Că putem folosi în mod continuu un hyperlink în programele noastre, vom crea o componentă!

Acum vom face cu un exemplu simplu, cu crearea de legături în Delphi, a pus apoi executa toată componenta. Începem cu ceea ce ne-am pus pe forma mărcii noastre de proiect (TLabel), lasa numele ei va rămâne Label1. Acum vom scrie handler eveniment OnClick pentru ea:

Acum voi explica ceea ce am scris aici. Funcția ShellExecute este utilizată pentru a deschide sau a imprima fișierul ca executabil și documentul. Primul parametru este mânerul ferestrei părinte, al doilea parametru - un șir de caractere specifică ce să facă cu fișierul, al treilea parametru conține numele fișierului pentru a deschide, al patrulea parametru specifică parametrii suplimentari ai fișierul executabil, al cincilea parametru specifică directorul implicit, ultimul parametru determină în cazul în care va fi afișat fișierul după oktrytiya.

Prin modul în care, dacă ați încercat să executați codul de mai sus, este probabil că nu au de lucru, pentru că funcția ShellExecute este în modulul ShellAPI, care, desigur, ar trebui să fie adăugate la secțiunea utilizărilor de cod în aplicația noastră.

Acum opțiuni în ceea ce privește cazul nostru ia în considerare:

Trebuie remarcat faptul că al doilea și al treilea parametrii funcției sunt zero, șiruri terminate, adică cum ar fi un siruri de caractere PChar, astfel încât să folosească funcțiile în numele fișierului, derivate din OpenDialog1, trebuie să utilizați PChar (OpenDialog1.Filename).

Acum, în tratare a evenimentului OnCreate face necesar să se scrie:

În tag-ul de tratare a evenimentului onmousedown vom scrie:

Și, în tratare a evenimentului onmouseup marca noastră, vom scrie:

Pentru a face realismul plin de link-ul nostru, este necesar să se stabilească proprietatea etichetă Cursor crHandPoint. Ie atunci când treceți cursorul pe link-ul va lua forma de mână familiare noi cu degetul arătător și de a linkul subliniat.

Ca o clasă părinte (strămoș de tip), avem cu siguranță trebuie să aleagă TLabel.

Aici este complet modul de cod de clasă Link componentele TLINK (module în text trebuie să fie conservate Link.pas fișier):

Așa că ne-am ocupat cu crearea de hyperlink-uri în Delphi, a pus sa dovedit foarte simplu!