标签：常见 分享 lse let OLE can http LTP proc
有多个图片，左右滑动可以切换，通过手势还可以放大、缩小查看，象常见的相册，就是这样子实现效果。
现在，我们有了TCCImageViewerForm组件，也可以轻松实现这样的场景应用。
现在看看TCCImageViewerForm用法，一如既往的简单。
TCCImageViewerForm是一个不可视控件，拖放一个到Form上，然后调用他的两个方法，一个是增加图片Add，一个是显示图片ShowForm。
procedure TForm1.CCGridPictureEditor1ItemClick(Sender: TObject; AItem: TCCGridPictureEditorItem); var i: Integer; APicCount: Integer; begin APicCount := CCGridPictureEditor1.Items.Count; CCImageViewerForm1.ClearBitmap; for i := 0 to APicCount - 1 do begin CCImageViewerForm1.Add(CCGridPictureEditor1.Items[i].Bitmap); end; CCImageViewerForm1.ShowForm(AItem.Index, false, procedure(AResult: TModalResult) begin end, nil); end;
简单的不能再简单，我都快不知写什么了。
ShowForm方法有几个参数，还是说说为好：
procedure TCCImageViewerForm.ShowForm(AIndex: Integer; ACanDelete: Boolean; AResultProc: TProc<System.UITypes.TModalResult>; AOnImageDeleteProc: TProc<Integer>);
AIndex：直接显示第几张图片的索引值
ACanDelete:是否允许删除
AResultProc：关闭窗口时的回调方法
AOnImageDeleteProc:删除一个图片时的回调方法。
完了，不知再写什么了，三十马上到了，代表ChinaCock提前给大家拜年！如果也想享受这个组件的便利，请到QQ群223717588去找作者，又不要你一分钱，这是作者常说的。
别忘了去QQ群223717588，群主常发红包的！
ChinaCock界面控件介绍-TCCImageViewerForm
标签：常见 分享 lse let OLE can http LTP proc
原文地址：https://www.cnblogs.com/kinglandsoft/p/10341757.html
