numai materiale utile
Acționarul principal al Alibaba a devenit cel mai bogat om din China
Articole
Microsoft a început testarea închisă a Office 16
Articole
Experții au găsit găuri de securitate în Windows 8.1
Articole
În metroul din Moscova va fi o rețea mobilă unificată
Articole
eBay va accepta Bitcoin
Articole
Vivitek a prezentat proiectorul "școală" D755WTIR
Articole
Butonul "Cumpărați" a apărut pe Twitter
Articole
"Yandex.News" poate fi acum vizualizat pe iPhone
Articole
Nu știu de ce, dar mulți începători au o întrebare despre cum să creeze un hyperlink în programul lor. Prin urmare, pentru a reduce numărul de astfel de întrebări, am creat această lecție. Ei bine, să începem:
Deschideți Delphi. creați un nou proiect pe formularul pe care îl aruncăm o componentă, etichetă din standardul marcajului. Imediat să-i schimbăm culoarea și dimensiunea fontului. Acest lucru se face în proprietatea Font. Am setat culoarea în albastru și fontul a făcut-o îndrăzneață, apoi în proprietatea Cursor a componentei Label, selectați crHandPoint. Acest lucru se face astfel încât atunci când cursorul este plasat pe link, cursorul devine o formă a degetului.
3. Toate pregătirile preliminare sunt finalizate. Acum, în partea de sus, după ce cuvântul cheie utilizează, adăugați SHELLAPI, acum selectați componenta Etichetă și creați un handler de evenimente OnClick pe ea. Codul complet al a ceea ce ar trebui să fie în mâner este prezentat mai jos, completați liniile lipsă.
procedura TForm1.Label1Click (expeditor: TObject);
începe
Dacă (Sender este TLabel) atunci
cu (Sender as Tlabel)
ShellExecute (Application.Handle, PChar ("deschis"),
PChar (Sugestie),
PChar (0),
nil,
SW_NORMAL);
se încheie;
Toate acestea, în doar 3 pași, ați învățat să creați hyperlink-uri în programul dvs.
Ne vedem la Delphi Expert.ru.
Materiale conexe
Articole similare
Trimiteți-le prietenilor: