在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
代码文件: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) LinkLabel1: TLinkLabel; procedure FormCreate(Sender: TObject); procedure LinkLabel1LinkClick(Sender: TObject; Link: string; LinkType: TSysLinkType); end; var Form1: TForm1; implementation {$R *.dfm} uses ShellAPI; procedure TForm1.FormCreate(Sender: TObject); begin LinkLabel1.Caption := '<a href="http://del.cnblogs.com">万一的 Delphi 博客</a>'; end; procedure TForm1.LinkLabel1LinkClick(Sender: TObject; Link: string; LinkType: TSysLinkType); begin ShellExecute(0, nil, PChar(Link), nil, nil, 1); end; end.窗体文件: object Form1: TForm1 Left = 23 Top = 87 Caption = 'Form1' ClientHeight = 122 ClientWidth = 291 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False Position = poDesigned OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object LinkLabel1: TLinkLabel Left = 24 Top = 24 Width = 53 Height = 17 Caption = 'LinkLabel1' TabOrder = 0 OnLinkClick = LinkLabel1LinkClick end end |
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
请发表评论