【结帖】[请求]界面问题**

lity

我照者25版本做的主窗体,放了6个panel,错位了,请求帮助 !
相关代码如下
procedure TJCFX.InitPanels;
var
  I: Integer;
begin
  SetLength(FPanels, 3);
  for I := Low(FPanels) to High(FPanels) do
    SetLength(FPanels[I], 2);

  FPanels[0][0] := pnlLeft1;
  FPanels[0][1] := pnlRight1;
  FPanels[1][0] := pnlLeft2;
  FPanels[1][1] := pnlRight2;
  FPanels[2][0] := pnlLeft3;
  FPanels[2][1] := pnlRight3;
end;

procedure TJCFX.pn1ClientResize(Sender: TObject);
const
  cSpaceWidth = 8;
var
  I, J: Integer;
  lWidth: Integer;
  lHeight: Integer;
  lColCount, lRowCount, lRowOffs, lColOffs: Integer;
begin
  lRowCount := High(FPanels) - Low(FPanels) + 1;
  lColCount := High(FPanels[0]) - Low(FPanels[0]) + 1;
  lWidth := pn1Client.Width div lColCount;
  lHeight := pn1Client.Height div lRowCount;
  for I := Low(FPanels) to High(FPanels) do
  begin
    if I > 0 then
      lRowOffs := cSpaceWidth div 2
    else
      lRowOffs := 0;
    // TODO: 需要考虑一行中列没有值的情况，列没值时融合可能会比较好
    for J := Low(FPanels[I]) to High(FPanels[I]) do
    begin
      if J > 0 then
        lColOffs := cSpaceWidth div 2
      else
        lColOffs := 0;
      FPanels[I][J].BoundsRect := Classes.Bounds(
        lWidth * J + cSpaceWidth - lColOffs,
        lHeight * I + cSpaceWidth - lRowOffs,
        lWidth - (cSpaceWidth + cSpaceWidth div 2),
        lHeight - (cSpaceWidth + cSpaceWidth div 3));
    end;
  end;
end;


请帮我看看

lity

初始化出错

lity

分步调试出错

lixy

楼主发所有源码吧，贴半截不知道您是怎么做的。
打个资源包上来。

lity

编译的时候总出现这个警告

lixy

把您做的这个功能发过来。如果牵连资源太多，可以做一个类似的例子发过来。

jiahaiminghr

楼主，请反馈。

jiahaiminghr

由于长时间没有反馈，先结帖了
有问题请开新帖