Inno Setup显示关于按钮以及网站超链接-织金旋律博客

------部分下载链接具有时效性，如有失效，请到QQ群反馈博客交流群或VIP会员群------

方案一添加[Code]段，在此段下输入代码：

[Code]
procedure AboutButtonOnClick(Sender: TObject);
begin
MsgBox(‘您下载的文件来自于‘#13#13’织金旋律博客 www.zhijinxuanlv.com‘, mbInformation, mb_Ok);
end;

procedure URLLabelOnClick(Sender: TObject);
var
ErrorCode: Integer;
begin
ShellExec(‘open’, ‘https://www.zhijinxuanlv.com/‘, ”, ”, SW_SHOWNORMAL, ewNoWait, ErrorCode);
end;

procedure InitializeWizard();
var
AboutButton, CancelButton: TButton;
URLLabel: TNewStaticText;
begin
CancelButton := WizardForm.CancelButton;
AboutButton := TButton.Create(WizardForm);
AboutButton.Left := WizardForm.ClientWidth – CancelButton.Left – CancelButton.Width;
AboutButton.Top := CancelButton.Top;
AboutButton.Width := CancelButton.Width;
AboutButton.Height := CancelButton.Height;
AboutButton.Caption := ‘关于(&A)’;
AboutButton.OnClick := @AboutButtonOnClick;
AboutButton.Parent := WizardForm;

URLLabel := TNewStaticText.Create(WizardForm);
URLLabel.Top := AboutButton.Top + AboutButton.Height – URLLabel.Height – 2;
URLLabel.Left := AboutButton.Left + AboutButton.Width + ScaleX(20);
URLLabel.Caption := ‘织金旋律博客‘;
URLLabel.OnClick := @URLLabelOnClick;
URLLabel.Parent := WizardForm;
URLLabel.Font.Style := URLLabel.Font.Style + [fsUnderLine];
URLLabel.Font.Color := clBlue;
URLLabel.Cursor := crHand;
end;

方案二添加[Code]段，在此段下输入代码：

[Code]

procedure AboutButtonOnClick(Sender: TObject);

begin

MsgBox(‘您下载的文件来自于’#13#13’织金旋律博客 www.zhijinxuanlv.com‘, mbInformation, mb_Ok);

end;

procedure URLLabelOnClick(Sender: TObject);

var

ErrorCode: Integer;

begin

ShellExec(‘open’, ‘https://www.zhijinxuanlv.com‘, ”, ”, SW_SHOW, ewNoWait, ErrorCode)

end;

procedure InitializeWizard();

var

AboutButton: TButton;

URLLabel: TNewStaticText;

begin

AboutButton := TButton.Create(WizardForm);

AboutButton.Left := WizardForm.ClientWidth – WizardForm.CancelButton.Left – WizardForm.CancelButton.Width;

AboutButton.Top := WizardForm.CancelButton.Top;

AboutButton.Width := WizardForm.CancelButton.Width;

AboutButton.Height := WizardForm.CancelButton.Height;

AboutButton.Caption := ‘关于(&A)’;

AboutButton.OnClick := @AboutButtonOnClick;

AboutButton.Parent := WizardForm;

URLLabel := TNewStaticText.Create(WizardForm);

URLLabel.Top := AboutButton.Top + AboutButton.Height – URLLabel.Height – 2;

URLLabel.Left := AboutButton.Left + AboutButton.Width + 10;

URLLabel.Caption := ‘织金旋律博客‘;

URLLabel.Font.Style := [fsBold, fsUnderline];

URLLabel.Font.Color := clBlue;

URLLabel.Cursor := crHand;

URLLabel.OnClick := @URLLabelOnClick;

URLLabel.Font.Name := ‘宋体’;

URLLabel.Font.Height := ScaleY(-13);

URLLabel.Parent := WizardForm;

URLLabel.Hint := ‘织金旋律博客‘;

URLLabel.ShowHint := True;

end;

代码说明：

使用时请将代码中红色部分替换为自己想要的内容。

①：绿色代码部分是点击关于按钮后弹出的信息，#13为换行符。

②：紫色代码部分是点击超链接信息后转到的网站地址。

③：粉色代码部分为关于按钮的名称，(&A)为快捷键，可随意填写字母。

④：蓝色代码部分为超链接文字名称。

⑤：黄色代码部分为超链接文字名称颜色，clBlue 可改为其它颜色。如：

clBlack（黑色），clMaroon（暗红），clGreen（绿色），clOlive（橄榄绿），

clNavy（深蓝），clPurple（紫色），clTeal（深青），clGray（灰色），

clSilver（浅灰），clRed（红色），clLime（浅绿），clYellow（黄色），

clBlue （蓝色），clFuchsia（紫红），clAqua（青绿），clWhite（白色）。

⑥：红色代码部分为超链接文字名称字体，可修改为黑体字型等。

⑦：橙色代码部分为鼠标指针放到超链接文字标题上显示的提示语。

------本页内容已结束，感谢你的支持，喜欢请分享，转载请注明出处------

感谢您的来访，获取更多精彩文章请收藏本站。

文章来源

织金旋律博客

隐私政策

PrivacyPolicy

用户协议

UseGenerator

许可协议

NC-SA 4.0

1. 资源都是经过站长或作者收集测试修改后发布分享。转载请在文内以超链形式注明出处，谢谢合作！
2. 本站除原创内容，其余所有内容均收集自互联网，仅限用于学习和研究目的，本站不对其内容的合法性承担任何责任。如有版权内容，请通知我们或作者删除，其版权均归原作者所有，本站虽力求保存原有版权信息，但因众多资源经多次转载，已无法确定其真实来源，或已将原有信息丢失，所以敬请原作者谅解！
3. 本站用户所发布的一切资源内容不代表本站立场，并不代表本站赞同其观点和对其真实性负责，若您对本站所载资源作品版权归属存有异议，请留言附说明联系邮箱，我们将在第一时间予以处理，同时向您表示歉意！为尊重作者版权，请购买原版作品，支持您喜欢的作者，谢谢！
4. 本站一律禁止以任何方式发布或转载任何违法的相关信息，访客如有发现请立即向站长举报；本站资源文件大多存储在云盘，如发现链接或图片失效，请联系作者或站长及时更新。

THE END

文章教程
# Inno Setup

Inno Setup显示关于按钮以及网站超链接

感谢您的来访，获取更多精彩文章请收藏本站。

请登录后发表评论