Home > Uncategorized > Membuat Hyperlink pada Text (Label) pada Delphi

Membuat Hyperlink pada Text (Label) pada Delphi

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:
form

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]Form[/spoiler]
Selesai deh tutorial kita hari ini. Semoga dapat dipahami. Oia, klo ada pertanyaan, jangan sungkan-sungkan untuk bertanya ya 🙂

Categories: Uncategorized
  1. joko
    13 May 2011 at 11:42

    oe….. macam mana lnk ke file lain? terimakasih

    • 14 May 2011 at 01:45

      okeh. tutorialnya menyusul mas 🙂

      terima kasih atas komentarnya.

  1. No trackbacks yet.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out /  Change )

Twitter picture

You are commenting using your Twitter account. Log Out /  Change )

Facebook photo

You are commenting using your Facebook account. Log Out /  Change )

Connecting to %s

%d bloggers like this: