23-05-2008, 04:41 PM
و عليكم السلام و رحمة الله
قم بإضافة كائن TLabel و إنشيء الحدث OnClick و اكتب فيه
لا تنسى إضافة shellapi في uses
قم بإضافة كائن TLabel و إنشيء الحدث OnClick و اكتب فيه
كود :
implementation
uses shellapi;
{$R *.DFM}
procedure TForm1.Label1Click(Sender: TObject);
begin
shellexecute(handle,'open','http://www.delphi4arab.net',nil,nil,sw_show);
end;
end.
من تشبه بقوم فهو منهم