怎样在DELPHI窗体上添加链接

来源：百度知道 编辑：UC知道 时间：2024/06/05 19:30:36
就是在窗体里面添加一个网址，鼠标点击后回自动访问INTERNET，和网页上添加链接差不多哈

窗体添加一个label;

uses ShellAPI;

procedure TForm1.FormCreate(Sender: TObject);
begin
label1.Transparent := true;
label1.Caption := 'www.baidu.com';
label1.Font.Color := clBlue;
label1.Font.Size := 14;
label1.Font.Style := [fsUnderline];
label1.Cursor := crDefault;
end;

procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
label1.Cursor := crHandPoint;
label1.Font.Style := [];
label1.Font.Color := clRed;
end;

procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
label1.Cursor := crDefault;
label1.Font.Style := [fsUnderline];
label1.Font.Color := clBlue;
end;

procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Shel