1. Tambahkan ShellAPI pada bagian uses, hampir di barisan paling atas
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ShellAPI, StdCtrls;
2. klik 2x pada button dan masukan scrif di bawah ini
procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(Handle, 'open', 'http://localhost/pemogramanIV/ruang.php',nil,nil, SW_SHOWNORMAL);
end;
sumber : http://www.aaezha.com/2012/11/membuat-hyperlink-pada-text-label-pada-delphi.html
0 Comments