RSS订阅 | 匿名投稿
您的位置:网站首页 > Android > 正文

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

作者:admin 来源: 日期:2014/1/24 22:43:18 人气: 标签:

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



读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址: