Delphi XE5实现Slide Menu（左侧为系统菜单如易信、百度新闻）

既然Delphi XE5可以开发Android、iOS的程式，那可不可以设计像Facebook一样的选单呢?

既然Delphi XE5可以开发Android、iOS的程式，那可不可以设计像Facebook一样的选单呢?

接下来就手把手教大家操作。

1首先开一个空的Mobile Project，在上面放一个ListBox元件，将Aligh设定為alClient

2接下来回到ListBox元件按右键进入 Item Editor，建立选单

3.接下来再放上一个Panel，一样把Aligh设定成alClient，接著在上面放一个ToolBar

4.在ToolBar上放一个SpeedButton，设定StyleLookup為detailstoolbuttonbordered

5.回到Panel元件，设定Position的X ，下拉选择 Create New TFloatAnimation

6.接著在SpeedButton 的 forbidden事件

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

var    FloatAnimationX:  single ; begin    FloatAnimationX:=Self . ClientWidth -  60 ;           if  (panel1 . Position . X=FloatAnimationX)  then  begin      FloatAnimation1 . StartValue:= FloatAnimationX;      FloatAnimation1 . StopValue:=  0 ;    end    else  begin      FloatAnimation1 . StartValue:=  0 ;      FloatAnimation1 . StopValue:= FloatAnimationX;    end ;           AnimateDrawer . Start; end ;

如果你要在Panel加上阴影的話，只要在Panel加上ShadowEffect即可