主页 / coding / 问题 / 79253193
Accepted
Lilith Helsente
Asked: 2024-12-05 09:55:02 +0800 CST

如何调整单选按钮和“WizardForm.DirEdit”框之间的间距？

  • 772

不久前，我问了一个问题： “我如何为 Steam 和 Epic Games 创建单独的安装路径，通过单选按钮选择，或者为自定义安装创建路径框？”[Code ，Martin Prikryl 对此做出了很好的回应。不幸的是，由于我没有明确说明我在用户体验方面到底做了什么计划，我遇到了一点小麻烦。我试图修复它，但我就是无法理解他控制按钮创建的这一小段。

马丁的部分[Code]：

var
  SteamButton: TNewRadioButton;
  EpicButton: TNewRadioButton;
  CustomButton: TNewRadioButton;

function CreateButton(var Top: Integer): TNewRadioButton;
begin
  Result := TNewRadioButton.Create(WizardForm);
  Result.Parent := WizardForm.DirEdit.Parent;
  Result.Top := Top;
  Result.Left := WizardForm.SelectDirBrowseLabel.Left;
  Result.Width := Result.Parent.ClientWidth - Result.Left;
  Result.OnClick := @DirButtonClick;
  Top := Result.Top + Result.Height + ScaleY(24); 
end;

有人能解释一下如何分离按钮而不是路径框吗？

此处显示所需内容的示例：

示例图像

inno-setup

1 个回答

  1. Best Answer

    如果需要每个单选按钮后有不同的间距，请将间距代码移出共享CreateButton实现：

    SteamButton := CreateButton();
SteamButton.Caption := '&Steam';
SteamButton.Enabled := DirExists(SteamDirName);
SteamButton.Top := WizardForm.SelectDirBrowseLabel.Top;

EpicButton := CreateButton();
EpicButton.Caption := '&Epic Games';
EpicButton.Enabled := DirExists(EpicDirName);
EpicButton.Top := SteamButton.Top + SteamButton.Height + ScaleY(24);

CustomButton := CreateButton();
CustomButton.Caption := '&Custom path:';
CustomButton.Top := EpicButton.Top + EpicButton.Height + ScaleY(24);

Top := CustomButton.Top + CustomButton.Height + ScaleY(8);
WizardForm.DirBrowseButton.Top :=
  WizardForm.DirBrowseButton.Top + (Top - WizardForm.DirEdit.Top);
 WizardForm.DirEdit.Top := Top;

    当然，删除对Top“CreateButton”的所有引用。

    在此处输入图片描述

    另一个（更容易做到的）选项是使ScaleY参数成为函数的参数CreateButton。

    • 1

相关问题