Question

在自定义表单上创建TCheckBox时，在Caption属性中只能显示15个字符。

[Code]
var
  OptionsWindowForm: TForm;

{ Show the Options window }
procedure ShowOptionsWindow;
var
  SlowNetworkLabel: TNewStaticText;
  SlowNetworkCheckBox: TNewCheckBox;
begin
  OptionsWindowForm := TForm.Create(nil);
  with OptionsWindowForm do
    begin
      Parent := WizardForm;
      BorderStyle := bsDialog;
      Position := poScreenCenter;
      ClientWidth := ScaleX(400);
      ClientHeight := ScaleY(140);
      Caption := '{#AppName} Options';
    end;
  { Define the Slow Network checkbox }
  SlowNetworkCheckBox := TNewCheckBox.Create(WizardForm);
  with SlowNetworkCheckBox do
    begin
      Parent := OptionsWindowForm;
      Left := OptionsLabel.Left + ScaleX(4); 
      Top := OptionsLabel.Top + ScaleY(20);
      Caption := 'Slow Network Connection: Run Remotely';
      Checked := False;
      OnClick := @SlowNetworkCheckBoxClick;
    end;
  OptionsWindowForm.ShowModal;
end;

因此，在此示例中，所有显示的都是“ Slow Network Co”，此后文本被截断。有一个明显的解决方法，可以创建标签并将其覆盖在复选框旁边。

{ Define the Slow Network label }
  SlowNetworkLabel := TNewStaticText.Create(WizardForm);
  with SlowNetworkLabel do
    begin
      Parent := OptionsWindowForm;
      Left := SlowNetworkCheckBox.Left + ScaleX(16);
      Top := SlowNetworkCheckBox.Top + ScaleY(2);
      Caption := 'Slow Network Connection: Run Remotely';
    end;

但是，这样做的缺点是只能单击复选框以选择或取消选择它。如果没有覆盖标签，则该复选框的标题文本也是可单击的。因此，这不是理想的解决方案，因为用户必须更加准确地单击鼠标以选中该复选框。因此，有没有办法增加字幕长度？ 15个字符似乎是一个非常重要的限制。

Answer 1

组合框不会自动调整其标题大小（与TLabel相反）。

只需使组合框尽可能宽。

with SlowNetworkCheckBox do 
begin
  Parent := OptionsWindowForm;
  Width := Parent.ClientWidth - Left - ScaleX(8);
  { ... }
end;

Inno Setup TCheckBox增加字幕长度（最多15个字符）

1 个答案: