Question

我正在尝试创建一个Previewlist，在其中使用以下代码在TFramedVertScrollbar中添加图像并在其顶部添加一个删除按钮：

var
PreviewList: TFramedVertScrollBox;
i: integer;
...
procedure TDashboard.AddClick(Sender: TObject);
var
  sImg: TImage;
  sBtn: TButton;
  sbit: TBitmap;
begin
  sbit := TBitmap.Create;
  try
    with sbit do
    begin
      Width := Image1.Bitmap.Width;
      Height := Image1.Bitmap.Height;
      Assign(Image1.Bitmap);
    end;
    sImg := TImage.Create(PreviewList);
    with sImg do
    begin
      Align := TAlignLayout.Top;
      Position.X := i * Height;
      Height := 60;
      Margins.Bottom := 2;
      Bitmap.Assign(sbit);
      Parent := PreviewList;
      WrapMode := TImageWrapMode.Stretch;
      onClick := PreviewItemClick;
    end;
    sBtn := TButton.Create(sImg);
    with sBtn do
    begin
      StyleLookup := 'listboxdeleteitem';
      Position.X := sImg.Width - 25;
      Position.Y := 5;
      Width := 15;
      Height := 15;
      Text := 'X';
      Parent := sImg;
      onClick := PreviewItemClick;
    end;
    i := i + 1;
  finally
    sbit.Free;
    Image1.Bitmap.Assign(nil);
  end;
end;

创建PreviewItem可以但不能删除，因为删除SystemBar不会响应（例如，不能移动或关闭或单击）或不接受鼠标事件的PreviewItem，我必须单击表单中的其他组件使它再次响应。

我尝试了以下两个版本的PreviewListClick：

begin
 PreviewList.BeginUpdate;
 Obj := TButton(Sender).Parent;
 FreeAndNil(Obj); 
 PreviewList.EndUpdate;
end;

上面的内容使SystemBar没有响应，所以我做到了：

begin
 PreviewList.BeginUpdate;
 PreviewList.RemoveObject(TButton(Sender).Parent);
 PreviewList.EndUpdate;
end;

在这种情况下，SystemBar响应，并且项目已删除，但是存在一个问题，在单击PreviewItem的“删除”按钮后，PreviewList项目未更新。

例如如果列表中有四个项目，并且如果我删除了第二个项目，那么该项目将被删除，但由于第二个项目的位置仍保持不变，因此列表未更新。现在PreviewList看起来像这样：

Item1 -> BlankSPace -> Item2 -> Item3

如何正确添加和删除项目？

Answer 1

从内容中删除对象效果很好

PreviewList.Content.RemoveObject(TButton(Sender).Parent);

从TFramedVertScrollBar正确删除项目？

1 个答案: