资深软件分享者
感谢你一路陪伴

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

方案一添加[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(白色)。
⑥:红色代码部分为超链接文字名称字体,可修改为黑体字型等。
⑦:橙色代码部分为鼠标指针放到超链接文字标题上显示的提示语。
历史上的今天
6月
8
    哇哦~~~,历史上的今天没发表过文章哦
赞(1) 打赏
版权声明:本文采用知识共享 署名4.0国际许可协议 [BY-NC-SA] 进行授权
文章名称:《Inno Setup显示关于按钮以及网站超链接》
文章链接:https://www.zhijinxuanlv.com/1148.html
本服务条款的解释权与修改权属于织金旋律博客。详情 免责声明 相关声明
如本帖侵犯到任何版权问题,请立即告知本站,本站将及时予与删除并致以最深的歉意。
本站资源仅供个人学习交流,请于下载后24小时内删除,不允许用于商业用途,否则法律问题自行承担。
你还可以点击蓝色字体加入交流群: 博客群 会员群 加群请填写注册的用户名。

评论 抢沙发

评论前必须登录!

 

觉得文章有用就打赏一下文章作者

非常感谢你的打赏,我们将继续给力更多优质内容,让我们一起创建更加美好的网络世界!

支付宝扫一扫打赏

微信扫一扫打赏

My title page contents