10 Apr 2009

MEMBUAT HYPERLINK



Pada Delphi, sebuah aplikasi yang dibuat dapat diberikan Hiperlink yang akan mengeksekusi link ataupun membuka data (pada drive Hard Disk). Sedangkan Hyperlink dapat dibuat dengan perintah ShellExecute.Sebagai contoh, listing program dibawah ini akan mengeksekusi link 'http://fiqih-88.blogspot.com' atau mengirim E-mail menggunakan Windows Outlook Express pada alamat E-mail ‘fiqih_88@yahoo.co.id’.

Listing Program :

type

TForm1 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

procedure Label1Click(Sender: TObject);

procedure Label2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Label1Click(Sender: TObject);

begin

ShellExecute(0, 'open', 'http://fiqih-88.blogspot.com', '', '',

SW_SHOWNORMAL);

end;

procedure TForm1.Label2Click(Sender: TObject);

begin

ShellExecute(0, 'open',

'mailto:fiqih_88@yahoo.co.id?Subject=Halo...!!!',

'', '', SW_SHOWNORMAL);

end;


DOWNLOAD SOURCE

0 komentar:

Poskan Komentar

Silahkan tinggalkan komentar Anda...

 

Bhirawa Anoraga Copyright © 2009