Question

我想在VerticleScrollBar中创建PreviewList。预览项目将具有TRectangle，TImage和TLabel。

“我的表单”包含三个按钮btnLoad btnAdd和btnClear。

在btnLoad上单击我正在将图片加载到Image1中：

procedure TForm3.btnLoadClick(Sender: TObject);
begin
if OpenDialog1.Execute then
   Image1.Bitmap.LoadFromFile(OpenDialog1.FileName);
end;

在btnAdd上单击，我将PreviewItem添加到VertScroll并将字符串添加到StringList，这将用于打印图像（尚未实现）：

procedure TForm3.btnAddClick(Sender: TObject);
var
mRect: TRectangle;
mbit: TBitmap;
mImage: TImage;
mTitle: TLabel;
mDeleteBtn: TButton;
begin
  SL:= TStringList.Create;

  mRect:= TRectangle.Create(VertScroll);
  mRect.Height:= 60 ;
  mRect.Align:= TAlignLayout.Top;
  mRect.Margins.Bottom:= 2;
  mRect.Position.Y:= I * mRect.Height;
  mRect.Parent:=VertScroll;

  mBit:= TBitmap.Create;
  mBit.Height:= Image1.Bitmap.Height;
  mBit.Width:= Image1.Bitmap.Width;
  mBit.CopyFromBitmap(Image1.Bitmap);

  mImage:= TImage.Create(mRect);
  mImage.Parent:= mRect;
  mImage.Align:= TAlignLayout.Top;
  mImage.Height:= 50;
  mImage.Bitmap.Assign(mBit);
  mImage.WrapMode:= TImageWrapMode.Tile;
  mImage.OnClick:= mImageClick;

  mTitle:= Tlabel.Create(mRect);
  mTitle.Parent:= mRect;
  mTitle.Align:= TAlignLayout.Bottom;
  mTitle.Text:= 'Image'+ IntToStr(i);
  mTitle.Height:=10;

  mDeleteBtn:= TButton.Create(mImage);
  mDeleteBtn.Parent:= mImage;
  mDeleteBtn.Width:= 20;
  mDeleteBtn.Height:=20;
  mDeleteBtn.Text:= 'X';
  mDeleteBtn.OnClick:= btnDeleteClick;

  I:= I + 1;
  SL.Add(mTitle.Text);
  ListBox1.Items.AddStrings(SL);
  Sl.Free;
end;

在btnClear上，我正在清除所有内容：

procedure TForm3.btnClearClick(Sender: TObject);
var
j: integer;
begin
  SL:= TStringList.Create;
  Sl.Clear;
  SL.Free;
  for j := VertScroll.ComponentCount - 1  downto 0 do
begin
  if (VertScroll.Components[j] is TRectangle) then
  begin
    (VertScroll.Components[j] as TRectangle).Free;
  end;
end;
  ListBox1.Clear;
  I:= 0;
end;

在mDeleteButton上单击，我试图从滚动条中删除该组件并从StringList中删除字符串：

procedure TForm3.btnDeleteClick(Sender: TObject);
var
j: integer;
begin
  VertScroll.BeginUpdate;
  SL:=TStringList.Create;
  j:= TButton(Sender).Parent.Parent.Index;
  sl.Delete(j);
  ListBox1.Items.AddStrings(SL);
  TButton(Sender).Parent.Parent.Destroy;
  VertScroll.EndUpdate;
end;

更新

预览项目的创建全部正常，但是当我尝试使用btnDelete从ScrollBar中删除项目时，会在Index Out of bound上引发Sl.Delete(j)错误

为什么不从该索引中删除StringList字符串？

我如何正确处理此操作？

更新1

我如何从TImage的PreviewItems中的TRectangle访问VertScroll 这是我正在尝试的当前代码：

    for k := 0 to TRectangle(VertScroll.Components[j]).ChildrenCount - 1 do
        begin
          if TRectangle(VertScroll.Components[j]).Children[k] is TImage then
          begin
            img.Bitmap.Assign(TImage(TRectangle(VertScroll.Components[j]).Children[k]).Bitmap);
          end;
        end;

Answer 1

procedure TForm3.btnDeleteClick(Sender: TObject);
var
j: integer;
begin
  VertScroll.BeginUpdate;
  SL:=TStringList.Create; // You create an empty stringlist here i.e Count = 0
  j:= TButton(Sender).Parent.Parent.Index;
  sl.Delete(j); // You are telling your code to delete from an empty stringlist
  ListBox1.Items.AddStrings(SL);
  TButton(Sender).Parent.Parent.Destroy;
  VertScroll.EndUpdate;
end;

出现越界错误的原因是因为StringList为空。您正在为列表使用全局变量，但每次都一直为其分配一个新实例。

考虑在MainForms构造函数中一次创建字符串列表，然后在表单的析构函数中将其释放。

最后，简单的调试将使您看到这一点。考虑现在就这样下去。

Answer 2

我相信mRect的所有者应该是VertScroll，而不是Form3，因此请更改为：

mRect:= TRectangle.Create(VertScroll);

在btnClearClick中删除 j 变量，并在您现在拥有 j 的地方简单地使用 0 。

此外，您正在毫无原因地使用TStringList，创建它只是为了销毁/释放它。删除SL变量，只需使用ListBox1.Items（或说明为什么要让SL成为ListBox1.Items的副本）

在运行时处理组件移除的正确方法？

2 个答案: