Membuat Link Dengan Delphi #109

andrypein.net : Hyperlink atau link adalah hal yang sudah tidak asing lagi bagi netter, bisakah kita membuat link dengan delphi?

Jawabannya jelas sangat bisa, program sederhana ini akan mencontohkan bagaimana implementasi dari saat klik dan saat kita menyorot link nya.

Penampakan skrinsut dibawah ini hanya contoh bodoh saja, klian bisa kembangkan lagi menjadi lebih GG.

Yang paling penting dari koding ini adalah logika link pada browser, pada saat disorot akan berubah warna dan jika mouse dijauhi maka akan kembali normal, event tersebut akan kita temukan di onmouseenter dan onmouseleave.

Selain bermain properties pada object inspector,kita juga coba aktifkan link itu seperti nyata, maksudnya kalo di klik, si link langsung terbuka di browser masing-masing.

Untuk prakteknya maka dari itu kita tambahkan ShellApi pada bagian Uses nya.

So full source nya seperti ini gan:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ShellApi;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Label1MouseEnter(Sender: TObject);
    procedure Label1MouseLeave(Sender: TObject);
    procedure Label2MouseEnter(Sender: TObject);
    procedure Label2MouseLeave(Sender: TObject);
    procedure Label1Click(Sender: TObject);
    procedure Label2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  application.Terminate;
end;

procedure TForm1.Label1MouseEnter(Sender: TObject);
begin
  label1.Font.Color:=clblue;
  label1.Cursor:=crHandpoint;
  label1.Font.Style:=[fsbold,fsunderline];
end;

procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
  label1.Font.Color:=clblack;
  label1.Cursor:=crdefault;
  label1.Font.Style:=[];
end;

procedure TForm1.Label2MouseEnter(Sender: TObject);
begin
  label2.Font.Color:=clblue;
  label2.Cursor:=crhandpoint;
  label2.Font.Style:=[fsbold,fsunderline];
end;

procedure TForm1.Label2MouseLeave(Sender: TObject);
begin
  label2.Font.Color:=clblack;
  label2.Cursor:=crdefault;
  label2.Font.Style:=[];
end;

procedure TForm1.Label1Click(Sender: TObject);
begin
  shellexecute(handle,'open','http://www.google.com',nil,nil,0);
end;

procedure TForm1.Label2Click(Sender: TObject);
begin
  shellexecute(handle,'open','http://www.facebook.com',nil,nil,0);
end;

end.

Uses ShellApi ditambah pada kode aplikasi tersebut gunanya agar perintah shellexecute dikenali.

Aplikasi membuat link dengan delphi bisa di donlod disini gan :

Download

*AFK