Question

我有一个“全方位”的渠道,上面有几个县(基本上是一种工具条)。所有县都有Align=Left。我已经设立了一个职能,将各州面积与面积相差,并计算其宽度,以填补整个梯队。我将这一职能称为“TPanel的恢复活动手”。

procedure ScaleButtonsOnPanel;
var i: Integer;
begin
  for i:=0 to mPanel.ControlCount-1 do begin
      mPanel.Controls[i].Width := round(mPanel.width/mPanel.ControlCount-1)
  end;
end;

问题在于,如果我尽量减少,然后恢复各州从设计布局变化的形式。

谁能提出解决办法,在能够重新组建但维持设计时间顺序的小组中设立县(从左派到适当位置)?

Answer 1

我看不到你的问题。当然,你必须确定纽芬兰人的立场,不仅是他们的规模。

procedure TForm1.Panel1Resize(Sender: TObject);
var
  i: Integer;
  btnWidth: integer;
begin
  btnWidth := Panel1.Width div Panel1.ControlCount;
  for i := 0 to Panel1.ControlCount - 1 do
  begin
    Panel1.Controls[i].Left := i * btnWidth;
    Panel1.Controls[i].Width := btnWidth;
  end;
end;

这一工作非常顺利。

见https://privat.rejbrand.se/panelresize.wmv。

OK,现在我看到。我认为,<代码>alLeftis实际上是你的问题。同样的控制往往改变其秩序。这是众所周知的德尔菲诺。而是如上。有理由确保你按照正确的顺序走到各州。如果你不能依赖<条码>第1号指示。在每个工具栏目中设定<代码>Tag 财产(0,1,......)

procedure TForm1.Panel1Resize(Sender: TObject);
var
  i: Integer;
  btnWidth: integer;
begin
  btnWidth := Panel1.Width div Panel1.ControlCount;
  for i := 0 to Panel1.ControlCount - 1 do
  begin
    Panel1.Controls[i].Left := Panel1.Controls[i].Tag * btnWidth;
    Panel1.Controls[i].Width := btnWidth;
  end;
end;

Answer 2

您是否试图看到。难道更适合你们的需要吗?

友情链接