关于AboutBox显示位置的问题

Question

为什么下面的代码第一次不起作用，第二次才有效果？我希望将关于对话框显示在父窗口的中间位置。procedure TFormMain.MenuHelpAboutClick(Sender: TObject);
begin
  FormAboutBox.Left := Self.Left + Self.Width div 2 - FormAboutBox.Width div 2;
  FormAboutBox.Top := Self.Top + Self.Height div 2 - FormAboutBox.Height div 2;
  FormAboutBox.ShowModal;
end;

Answer 1

唉，找到原因了。原来窗口的Position属性没有改过来。