您现在的位置: 天下网吧 >> 网吧天下 >> 网吧程序 >> Delphi学习 >> Delphi XE >> 正文

Delphi XE7开发的第一个Android程序全程讲解

[作者:admin 来源:DA论坛 时间:2015-3-10我来说两句
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




关注天下网吧微信,了解最新网吧资讯:


本文来源:DA论坛 作者:admin

声明
本文来源地址:
声明:本站所发表的文章、评论及图片仅代表作者本人观点,与本站立场无关。若文章侵犯了您的相关权益,请及时与我们联系,我们会及时处理,感谢您对本站的支持!联系邮箱:support@txwb.com.,本站所有有注明来源为天下网吧或天下网吧论坛的原创作品,各位转载时请注明来源链接!
天下网吧 网吧天下