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

既然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事件

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即可

推荐分享