关于groupbox点击按钮自动适应窗口有关问题

2013-06-25

关于groupbox点击按钮自动适应窗口问题窗体左侧Groupbox1 带按钮右侧Groupbox2 点击按钮Groupbox1 铺满全

关于groupbox点击按钮自动适应窗口问题
窗体左侧Groupbox1 带按钮右侧Groupbox2
点击按钮Groupbox1 铺满全屏再点击下Groupbox1 返回原始状态

我想问窗口放大以后点击按钮Groupbox1 返回时如何自动适应最大窗口

var
  oldRect: TRect;
  flg: Boolean = False;

procedure TForm1.FormCreate(Sender: TObject);
begin
  oldRect.Left := Groupbox1.Left;
  oldRect.Top := Groupbox1.Top;
  oldRect.Right := Groupbox1.Width;
  oldRect.Bottom := Groupbox1.Height;
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
  if not flg then
  begin
    flg := True;
    Groupbox1.Align := alClient;
  end
  else
  begin
    flg := False;
    Groupbox1.Align := alNone;
    Groupbox1.SetBounds(oldRect.Left, oldRect.Top, oldRect.Right, oldRect.Bottom);
  end;
end; 不放大窗口的时候都正常但是放窗口就不同步了
如图1 关于groupbox点击按钮自动适应窗口有关问题
不放大的时候点击返回正常
图2放大情况下点击按钮返回就不能自动适应红色范围内，请问如何解决呢

[解决办法]
Groupbox1 对齐属性设为alclient， Groupbox2设为alright，你隐藏 Groupbox2就行了，就可以实现伸缩，还原

热点排行

.NET

关于groupbox点击按钮自动适应窗口有关问题