如何实现在运行期间，对控件大小进行拖放和调整？

Question

没有人回答呀？
在程序运行时，可以由用户调整控件的大小。
另外，一个FORM里，不管有多少个Radiobutton也只能有一个被选择呀？

Answer 1

把不同组别的RadioButton放在不同的GroupBox中。或者用RadioGroup控件，设一下RadioGroup的Items属性。
下面代码可以实现对一个Button的拖拽：
 ……………………
  private
    { Private declarations }
    BeginDrag:Boolean;
    OriginPos:TPoint;
  public
    { Public declarations }
  end;var
  Form1: TForm1;
implementation{$R *.DFM}procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if (Button=mbLeft) then
    BeginDrag:=True;
  OriginPos:=Point(X,Y);
end;procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if BeginDrag then
  begin
    Button1.Left:=Button1.Left+X-OriginPos.x ;
    Button1.Top :=Button1.Top +Y-OriginPos.y ;
  end;
end;procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  BeginDrag:=False;
end;end.