本文整理自网络,侵删。
介绍
本文章介绍了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;

相关阅读 >>
Delphi xe10 针对全面屏手机端无法全面显示,下方显示黑条的处理
Delphi 把修改好的cookies重新赋值给webbrowser1 doc
Delphi 从twebbrowser webbrowser得到全部html源码
Delphi 如何将memo或richedit保存为utf 8文本文件?
更多相关阅读请进入《Delphi》频道 >>