介绍

本文章介绍了Delphi XE5实现左侧或者右侧菜单功能，接下来就手把手教大家操作。

首先创建一个空的手机应用工程，在Form上面放一个ListBox控件，将Aligh设置为alClient
选择ListBox控件按右键进入 Item Editor，建立条目
放上一个Panel控件，一样把Aligh设定成alClient，然后在Panel上面放置ToolBar
在ToolBar控件上添加一个SpeedButton控件，设定StyleLookup为detailstoolbuttonbordered
选择Panel控件，设定Position的X ，下拉选择 Create New TFloatAnimation
接著在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;