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

[wuhc2002]

如题

[yjs_lh]

在onclick事件中写
use shellapi;

...

shellexecute('iexplorer','open','http://www.sina.com');

[VeryOldMan]

在label的onclick事件里写代码。

shellexecute('open','your URL',...)

当然在label的onmousemove事件里也写代码，将鼠标形状改为一只手。

[ksaiy]

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;
.....

[gyf]

ShellExecute

[「已注销」]

同意楼上,还做了超链的效果

[DemonLoveLizzy]

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

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