在ListBox可以平拖列表项，在滑出的菜单中进行各种操作，

比如常用的邮件APP,可以在滑出的菜单中删除某一封邮件，

如下图所示:

实现步骤如下:

拖一个ItemDesignerPanel到ListBox上，

在ItemDesignerPanel上放两个按钮，

如图所示:

设置ListBox.Properties.ItemPanDragDesignerPanel为此ItemDesignerPanel,

再设置ItemPanDragGestureDirection为ipdgdtLeft,表示手指从右向左拖动时滑出ItemDesignerPanel，

好了，我们来看下效果:

当ItemPanDragGestureDirection为ipdgdtRight时,表示手指从左向右拖动时滑出ItemDesignerPanel，

如图所示:

当点击ItemDesignerPanel中的其中一个按钮时，需要在该按钮的OnClick事件中调用ListBox的StopItemPanDrag方法来结束平拖:

procedure TFrameListBox_UseItemPanDrag.btnCallClick(Sender: TObject);

begin

Self.lbAppList.Prop.StopItemPanDrag;

end;