请问如果做个点击label直接连到某个网站

Question

如题

Answer 1

在onclick事件中写
use shellapi;...shellexecute('iexplorer','open','http://www.sina.com');

Answer 2

在label的onclick事件里写代码。shellexecute('open','your URL',...)当然在label的onmousemove事件里也写代码，将鼠标形状改为一只手。

Answer 3

uses ShellApi;.....
procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
begin
  Label1.Font.Color:=clred;
  Label1.Cursor:=crHandPoint;
end;procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
begin
  Label1.Font.Color:=clWindowText;
end;procedure TForm1.Label1Click(Sender: TObject);
begin
  ShellExecute(Handle,nil,'http://www.ksaiy.com',nil,nil,SW_SHOWNORMAL);
end;
.....

Answer 4

//ShellExecute(Handle,nil,'http://www.ksaiy.com',nil,nil,SW_SHOWNORMAL);ShellExecute(Handle,'open','http://www.ksaiy.com',nil,nil,SW_SHOWNORMAL);