如何在DELPHI中使控件的大小正确适应窗体(在窗体大小改变的时候)

Question

如何在DELPHI中使控件的大小正确适应窗体(在窗体大小改变的时候).

Answer 1

在resize事件中写入
OrigRecQueryfrm：是窗口
OrigRecQueryfrm.Width - 30：相对位置procedure TOrigRecQueryfrm.FormCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
begin
   DBGRecordView.Width := OrigRecQueryfrm.Width - 30;
   DBGRecordView.Height := OrigRecQueryfrm.Height - 85;
   PanelTotal.Top := OrigRecQueryfrm.Height - 62;
   btnSearch.Top := OrigRecQueryfrm.Height - 62;
   btnPrint.Top := OrigRecQueryfrm.Height - 62;
   btnCancel.Top := OrigRecQueryfrm.Height - 62;
   btnHelp.Top := OrigRecQueryfrm.Height - 62;
   btnSearch.Left := OrigRecQueryfrm.Width - 334;
   btnPrint.Left := OrigRecQueryfrm.Width - 254;
   btnCancel.Left := OrigRecQueryfrm.Width - 174;
   btnHelp.Left := OrigRecQueryfrm.Width - 94;
   PanelTotal.Left := btnSearch.Left - 5 - PanelTotal.Width;
end;

Answer 2

可以参考Delphi中，InputBox函数的源代码。