如何让两个按钮始终位于窗体中间位置？？急！！！

Question

我的窗体上放了两个按钮，如何让两个按钮始终位于窗体中间位置？？急！！！

Answer 1

oncanresize事件中写
procedure TForm1.FormCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
begin
  Button1.Top:=newheight div 2- Button1.Height div 2;
  Button2.Top:=newheight div 2- Button1.Height div 2;
  Button1.Left:=newwidth div 2-button1.Width-2;
  Button2.Left:=newwidth div 2+2;
end;