关于动态创建控件时遇到问题?(控件位置如何定位)

Question

procedure TForm1.BitBtn6Click(Sender: TObject);
var
  selectForm:TForm;
  btnOK,btnCancel:TButton;
begin
  {Form}
  selectForm:=TForm.Create(nil);
  selectForm.Parent:=self.Parent;
  selectForm.Name:='selectForm';
  selectForm.Caption:='Please select One';
  selectForm.Position:=poOwnerFormCenter;
  selectForm.BorderStyle:=bsDialog;
  {Button}
  btnOK:=TButton.Create(nil);
  btnOK.Parent:=selectForm;
  btnOK.Name:='btnOK';
  btnOK.Caption:='确定';
  btnOK.Top:=selectForm.Height-btnOK.Height*2;
  selectForm.ShowModal;
  selectForm.Free;
end;  btnOK.Top:=selectForm.Height-btnOK.Height*2; 只能把Button的位置放在Form的最底边(Button的Bottom和Form的Bottom是一条线),为什么要*2?

Answer 1

btnOK.Top:=selectForm.ClientHeight-btnOK.Height;

Answer 2

btnOK.Top:=selectForm.ClientHeight-btnOK.Height;//应用clientheight才对,height包括标题栏的高度

Answer 3

呵呵，selectForm.Height包含了标题栏。不信你可以试试:
self.Hide;//开头加
selectForm.BorderStyle:=bsNone;
btnOK.Top:=selectForm.Height-btnOK.Height;
self.Show;//结尾加