我是 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;
每当此代码运行时,无论用户将其设置到什么位置,都不会发生任何事情。我的表单保持在对象创建之前最初设置的默认位置。