Question

我有一些代码，它会用按钮创建表单，但是当表单显示按钮有错误的位置时。

var
  Form: TForm;
  Button: TButton;
begin
  Form := TForm.Create(Self);
  try
    Button := TButton.Create(Form);
    Button.Parent := Form;
    Button.Left := 8;
    Button.Top := 8;
    Button.Height := 185;
    Button.Width := 292;
    Button.Anchors := [];
    Form.ShowModal;
  finally
    FreeAndNil(Form);
  end;

知道如何解决这个问题吗？

Answer 1

不要清除Anchors。这会导致按钮在调整窗体大小时移动。保留默认Anchors设置为[akLeft,akTop]，以便该按钮符合您的Left / Top值。

Answer 2

在创建控件之前使用HandleNeeded

Form.HandleNeeded

当表单显示 - 按钮具有正确位置时

德尔福。创建表单时设置按钮位置

2 个答案: