Inno setup Inno设置-在消息框中隐藏X按钮（关闭）

如何在消息框中隐藏X按钮

如果可能的话，我想看看这个：

---

我认为这是不可能的

一种可能的解决方法是从头开始实现消息框

并从

t窗体边框图标中删除
biSystemMenu
（或实际将其设置为空）

不带关闭按钮的程序MyMessageBox；
变量
表格：TSetupForm；
按钮：TNewButton；
标签：TLabel；
开始
表单：=CreateCustomForm；
Form.BorderStyle:=bsDialog；
形式.位置：=poOwnerFormCenter；
Form.ClientWidth:=ScaleX（400）；
Form.ClientHeight:=ScaleY（130）；
Form.BorderIcons:=[]；{无关闭按钮}
表格.标题:='标题'；
MessageLabel:=TLabel.Create（表单）；
MessageLabel.Parent:=表单；
MessageLabel.Left:=ScaleX（16）；
MessageLabel.Top:=ScaleX（16）；
MessageLabel.Width:=Form.ClientWidth-2*ScaleX（16）；
高度：=ScaleY（32）；
MessageLabel.AutoSize:=False；
MessageLabel.WordWrap:=True；
标题：=‘Lorem ipsum dolor sit amet，’；
按钮：=TNewButton.Create（表单）；
Button.Parent:=表单；
按钮宽度：=ScaleX（80）；
按钮高度：=ScaleY（24）；
Button.Left:=Form.ClientWidth-Button.Width-ScaleX（8）；
Button.Top:=Form.ClientHeight-Button.Height-ScaleY（8）；
按钮。标题：=“接受”；
Button.ModalResult:=mrOK；
Form.showmodel；
结束；



请注意，仍然可以使用Alt-F4关闭消息框

要防止该句柄
OnCloseQuery
。例如，请参阅。
我认为这是不可能的

一种可能的解决方法是从头开始实现消息框

并从
t窗体边框图标中删除
biSystemMenu
（或实际将其设置为空）

不带关闭按钮的程序MyMessageBox；
变量
表格：TSetupForm；
按钮：TNewButton；
标签：TLabel；
开始
表单：=CreateCustomForm；
Form.BorderStyle:=bsDialog；
形式.位置：=poOwnerFormCenter；
Form.ClientWidth:=ScaleX（400）；
Form.ClientHeight:=ScaleY（130）；
Form.BorderIcons:=[]；{无关闭按钮}
表格.标题:='标题'；
MessageLabel:=TLabel.Create（表单）；
MessageLabel.Parent:=表单；
MessageLabel.Left:=ScaleX（16）；
MessageLabel.Top:=ScaleX（16）；
MessageLabel.Width:=Form.ClientWidth-2*ScaleX（16）；
高度：=ScaleY（32）；
MessageLabel.AutoSize:=False；
MessageLabel.WordWrap:=True；
标题：=‘Lorem ipsum dolor sit amet，’；
按钮：=TNewButton.Create（表单）；
Button.Parent:=表单；
按钮宽度：=ScaleX（80）；
按钮高度：=ScaleY（24）；
Button.Left:=Form.ClientWidth-Button.Width-ScaleX（8）；
Button.Top:=Form.ClientHeight-Button.Height-ScaleY（8）；
按钮。标题：=“接受”；
Button.ModalResult:=mrOK；
Form.showmodel；
结束；



请注意，仍然可以使用Alt-F4关闭消息框

要防止该句柄
OnCloseQuery
。有关示例，请参见