نحوه گذاشتن لینک یک سایت در برنامه و باز نمودن با کلیک روی اون لینک

[hentjanson]

سلام دوستان من یک برنامه نوشتم که نام سایت و ادرس اونو ثبت میکنه میشه کاری کرد که وقتی روی اون لینک کلیک میکنم اون سایت باز شه .

میشه من راهنمایی کنید . با تشکر

اینم برنامه من

[Emdad2001]

Uses
ShellAPI



procedure TForm1.Label1Click(Sender: TObject);
begin

ShellExecute(Handle,'open', 'http://www.example.com',nil, nil, SW_SHOW);

end;

[hentjanson]

سلام من از این کد شما استفاده کردم پیغام خطا میده برنامه
میشه یک نمونه بسازید واسه دیگران هم شاید بدرد بخوره

[hentjanson]

من تا حدودی متوجه شدم ببین من لینک رو تو یک فیلد میزارم به اسم site حالا میخوام یک label بزارم که کاربر وقتی روی اون کلیک میکنه وب سایت باز شه :

لطفا برنامه من ببینید تا به مشکلم پی ببرید با تشکر از همه اساتید

[Emdad2001]

ببین دوست عزیز کد که گذاشتم خیلی روشن بود !! من هم مثل شما تو دلفی تازه کارم ولی یخورده خودمو زحمت میدم که سوال های ابتدایی از اساتید نپرسم به هر حال بگذریم
شما یک پروژه جدید ایجاد کنید بعد روی فرم یک Lable1 و یک Timer1 بزارید البته این روشی هستش که من همیشه استفاده میکنم که وقتی کاربر روی لینک بره احساس کنه که تو وب هستش ;)

unit Unit1;

interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.StdCtrls,ShellAPI;

type
TForm1 = class(TForm)
Label1: TLabel;
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
procedure Label1MouseEnter(Sender: TObject);
procedure Label1MouseLeave(Sender: TObject);
procedure Label1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Label1Click(Sender: TObject);
begin
ShellExecute(Handle,'open', 'http://www.example.com',nil, nil, SW_SHOW);
end;

procedure TForm1.Label1MouseEnter(Sender: TObject);
begin
Timer1.Enabled:=false;
Label1.Font.Color:= clRed;
Label1.Font.Style := [fsunderline];
end;

procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
Label1.Font.Size:=9;
Label1.Font.Color:= clBlue;
Label1.Font.Style := [];
Timer1.Enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Label1.Font.Color=clBlue then
begin
Label1.Font.Color:=CLRed;
end
else
begin
Label1.Font.Color:=clBlue;
end;
end;

end.

[Emdad2001]

اینم سورس فایل

دانلود (http://dl.ghasrrayaneh.com/link.zip)