Membuat Hyperlink pada Text (Label) pada Delphi

delphi

Bagaimana membuat hyperlink (text yang mengandung link atau URL) pada Delphi? Memang pada dasarnya tidak ada komponen tersendiri seperti Label yang ada properties hyperlink-nya. Jadi kalau ingin membuat hyperlink pada Delphi ini harus manual, dari tampilannya sampai kodingnya.

Yaudah, daripada banyak pendahuluannya, mendingan coba deh buat 1 form baru dengan 2 label, kira-kira contohnya seperti ini:

Oke, lalu apalagi?
Coba teken F12, kita akan dibawa ke kode-kode deh 🙂
Tambahkan ShellAPI pada bagian uses, hampir di barisan paling atas
[delphi]uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ShellAPI, StdCtrls;[/delphi]

Kemudian, kita ubah warna dari Label tersebut agar menjadi berbeda daripada label/text lainnya yang tidak ber-hyperlink.

Lalu, langkah sebelum terakhir adalah merubah tampilan kursor ketika berada diatas Label yang ber-hyperlink itu. Pertama, aktifkan dulu Label yang dimaksud, lalu pada properties Cursor, pilih crHandPoint untuk value-nya.

Nah, langkah terakhir ialah, dobel klik pada Label yang dimaksud, lalu ketikkan kode berikut:
[delphi]procedure TForm1.Label2Click(Sender: TObject);
begin
ShellExecute(Handle, ‘open’, ‘http://www.aaezha.com’,nil,nil, SW_SHOWNORMAL);
end;[/delphi]

Ehm, tinggal dirubah aja tuh linknya 🙂
Oh iya, link diatas akan tampil pada browser default kita. Kalo penulis seh lebih memilih Google Chrome sebagai browser defaultnya. Maka nanti http://www.aaezha.com akan terbuka di Chrome dalam tab baru.

Hasilnya kurang lebih seperti ini
[spoiler][/spoiler]
Selesai deh tutorial kita hari ini. Semoga dapat dipahami. Oia, klo ada pertanyaan, jangan sungkan-sungkan untuk bertanya ya 🙂