面板对齐属性更新在运行时不起作用

问题描述

我是 Delphi 的新手，我正在尝试在运行时动态更改面板位置。默认情况下，我在此表单中的面板将 Alignment 属性设置为“taLeftJustify”。在运行时，通过按下一个按钮，我创建了这个新表单并传递了用户为面板选择的对齐方式（左、右或居中）。根据此信息，我相应地更改了表单：

在我的主要形式中：

MyForm := TCustomForm.Create(Self);
MyForm.PassAlignment(ComboBoxInfo);

在我的新表单上：

procedure TCustomForm.PassAlignment(const alig: string);
begin
  if alig = 'LEFT' then
  begin
   Panel4.Alignment := taLeftJustify;
  end;
    ...
end;

每当此代码运行时，无论用户将其设置到什么位置，都不会发生任何事情。我的表单保持在对象创建之前最初设置的默认位置。

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

delphi delphi-2010