窗体中 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;