Delphi10.3 之 TLinkLabel使用

涂磊的小作,请赐教 / 2024-10-23 / 原文

uses ShellAPI;

procedure TForm1.FormCreate(Sender: TObject);
begin
  LinkLabel1.Caption := '';
end;

procedure TForm1.LinkLabel1LinkClick(Sender: TObject; Link: string;  LinkType: TSysLinkType);
begin
  ShellExecute(0, nil, PChar(Link), nil, nil, 1);
end;