DBEdits在表单中的对齐并不起作用

Question

我想将要显示的所有DBEdit控件文本对齐到左对齐的用户

  for i := 0 to FormName.ComponentCount - 1 do
  if FormName.Components[i] is TDBEdit then
    TDBEdit(FormName.Components[i]).Field.Alignment := taLeftJustify; 

但不幸的是它不起作用。

当我单独定义它时，它有效。

DBEdit1.Field.Alignment := taLeftJustify; 

有人可以告诉我为什么会这样吗？

Answer 1

将您的代码放在FormName的OnShow事件中：

procedure TFormName.FormShow(Sender: TObject);
begin
for i := 0 to FormName.ComponentCount - 1 do
if FormName.Components[i] is TDBEdit then
TDBEdit(FormName.Components[i]).Field.Alignment := taLeftJustify; 
end;