1、新建项目 ，如下图一步一步：


2、放上控件，写上代码
TEdit,TButton,TListBox
设置各控件默认属性,注意现在的标题属性都变成Text了，而不是原来的 caption 了。
再增加button的点击事件，代码如下：

1. unit HeaderFooterTemplate;
   
2. interface
   
3. uses
   
4.   System.SysUtils, System.Types, System.UITypes, System.Classes,
   
5.   System.Variants,
   
6.   FMX.Types, FMX.Graphics, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.StdCtrls,
   
7.   FMX.Layouts, FMX.ListBox,
   
8.   FMX.Controls.Presentation, FMX.Edit;
   
9. type
   
10.   THeaderFooterForm = class(TForm)
    
11.     Header: TToolBar;
    
12.     Footer: TToolBar;
    
13.     HeaderLabel: TLabel;
    
14.     edt1: TEdit;
    
15.     btn1: TButton;
    
16.     lst1: TListBox;
    
17.     procedure btn1Click(Sender: TObject);
    
18.   private
    
19.     { Private declarations }
    
20.   public
    
21.     { Public declarations }
    
22.   end;
    
23. var
    
24.   HeaderFooterForm: THeaderFooterForm;
    
25. implementation
    
26. {$R *.fmx}
    
27. procedure THeaderFooterForm.btn1Click(Sender: TObject);
    
28. begin
    
29.   lst1.Items.Add(edt1.Text + 'hello,word!');
    
30. end;
    
31. end.

复制代码
3、选择运行的目标平台：

4、插上手机，开启手机的调试模式（不建议模拟机运行，太慢，还是真机运行的爽，我用的是P6电信版）F9，编译运行
编译运行时间比原来的时间要长不少，不过还算很好的啦。

上图是编译进度，当前显示的是正在安装APK

上图是运行后的效果

原文链接：

http://delphi.txwb.com/thread-1-1-1.html

欢迎访问最专业的网吧论坛,无盘论坛,网吧经营,网咖管理,网吧专业论坛 https://bbs.txwb.com 关注天下网吧微信/下载天下网吧APP/天下网吧小程序，一起来超精彩