Creați un hyperlink în Delphi
De fapt, crearea unui hyperlink în Delphi este foarte ușoară. 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.
Pentru ca noi să folosim în mod constant hyperlinkul în programele noastre, vom crea o componentă!
Acum, pentru un exemplu simplu, vom afla cum să creați o legătură în Delphi și apoi o vom face ca o componentă. Începem cu faptul că am plasat o etichetă (Tabel) pe formularul proiectului nostru, lăsându-i numele să rămână Etichetă1. Acum vom scrie scriitorul pentru evenimentul OnClick, pentru că:
Acum voi explica ce am scris aici. Funcția ShellExecute este concepută pentru a deschide sau a imprima un fișier, atât executabil cât și document. 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ă oktryty.
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, să analizăm parametrii care privesc cazul nostru:
Trebuie notat faptul că al doilea și al treilea parametru al funcției sunt șiruri terminate cu zero, adică linii de tip PChar, prin urmare, pentru a fi utilizate în funcție de numele unui fișier primit de la OpenDialog1, este necesar să se utilizeze PChar (OpenDialog1.Filename).
Acum, în cazul unui handler al evenimentului OnCreate, ar trebui să scrieți:
În cazul handlerului evenimentului OnMouseDown, scriem:
Și în evenimentul handler al evenimentului OnMouseUp al etichetei noastre, scriem:
Pentru a face link-ul nostru realist, trebuie să setăm proprietatea etichetei Cursor în crHandPoint. Ie atunci când indicați o legătură, indicatorul va arăta ca o mână care ne este familiarizată cu un deget arătător extins și face linkul subliniat.
Ca clasă parentală (Tipul de strămoși), trebuie să alegem TLabel.
Aici este codul complet al modulului Link al clasei Tlink (textul modulului trebuie salvat în fișierul Link.pas):
Așa că am stabilit crearea de hyper-link-uri în Delphi, așa cum sa dovedit foarte simplu!