XE5
文章平均质量分 58
郁闷的坦然
这个作者很懒,什么都没留下…
展开
-
XE5发短信以及目录
unit Dxc;interfaceuses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls, FMX.Layout原创 2013-09-30 08:38:24 · 1872 阅读 · 0 评论 -
XE5 android怎么调用自带浏览器打开网页
uses Classes, SysUtils, FMX.Helpers.Android, Androidapi.JNI.GraphicsContentViewText, Androidapi.JNI.Net, Androidapi.JNI.JavaTypesprocedure XOpenURL(AUrl: String);var Intent: JIntent;begi转载 2014-03-11 17:05:23 · 2666 阅读 · 0 评论 -
获取硬盘序列号
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Edit1: TEdit;原创 2014-03-12 11:35:29 · 1819 阅读 · 0 评论 -
XE5电脑录像功能
unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;typ原创 2014-01-07 09:14:06 · 1112 阅读 · 0 评论 -
Delphi FireMonkey 学习笔记 – TPopup 控件的使用
TPopup 控件可以用于类似菜单或 comboBox 弹出方式显示控件内容,例如下图所示的 CallOutPanel 在点击 button2 之后显示出来,当 CallOutPanel 失去焦点后即会消失。方法很简单,就是将 TPopup 控件放到窗体上,然后,将需要显示的控件拖放到 TPopup 控件里,注意,TPopup 控件必须是它的父级,如下图,在结构树中,需要显示的控件原创 2013-11-05 08:57:12 · 4577 阅读 · 0 评论 -
xe5 JSON
unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls,DBXJSON;type TF原创 2013-10-30 11:45:31 · 1692 阅读 · 1 评论 -
XE5技巧
一、手机快捷方式显示中文名称 project->options->Version Info-label(改成需要显示的中文名即可),但是需要安装到安卓手机才可以(IOS的没有试过)二、使用Sqllite存储中文 SqlLite中,字段类型要设置为nvarchar,保存时,有两种方式 1)用Post时,对中文的字段要进行UTF8转换 先用一个string变原创 2013-10-17 18:19:35 · 1456 阅读 · 0 评论 -
XE5 JSON与Delphi Object的互换
unit Unit2;interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, DBXJSON, DBXJSON原创 2013-10-16 18:47:18 · 4986 阅读 · 0 评论 -
XE5 程序中标识win max android ios程序代码分别实现
procedure TForm1.FormCreate(Sender: TObject);begin {$IFDEF MSWINDOWS} StyleBook := StyleBookWin; {$ENDIF} {$IFDEF MACOS} StyleBook := StyleBookMac; {$ENDIF} {$IFDEF Android} StyleBook :=原创 2013-09-28 08:52:01 · 1676 阅读 · 1 评论 -
Delphi XE5 与其他版本共存
如果你想使用Delphi诸如XE4、XE3、XE2、XE之类的版本跟Delphi XE5共存的话,在cglm.ini中简单修改两行就行啦。找到Delphi XE5的安装根目录C:\Program Files (x86)\Embarcadero\RAD Studio\12.0\bin下的cglm.ini文件,打开cglm.ini文件[Embarcadero License M原创 2013-09-25 18:38:05 · 2189 阅读 · 0 评论 -
Delphi XE取得硬盘序列号代码
function GetIdeSerialNumber: pchar;const IDENTIFY_BUFFER_SIZE = 512;type TIDERegs = packed record bFeaturesReg: BYTE; // Used for specifying SMART "commands". bSectorCountReg: BYTE; // IDE sec原创 2013-09-25 19:18:59 · 2325 阅读 · 0 评论 -
Delphi XE5 Android 程序退出功能
Uses FMX.Platform.Android;...begin {退出程序} MainActivity.finish;end;原创 2013-09-25 18:37:18 · 5347 阅读 · 3 评论 -
delphi 中文urlencode的简单办法
userHttpapp; //...HttpEncode(AnsiToUtf8('中文'));原创 2013-10-09 16:48:29 · 6645 阅读 · 0 评论 -
获取电池电量代码
uses AndroidAPI.JNI.GraphicsContentViewText, AndroidAPI.JNI.JavaTypes, AndroidAPI.JNI.OS; function BatteryPercent(const aContext: JContext): Integer; var filter: JIntentFilter;原创 2013-10-07 16:28:44 · 4605 阅读 · 1 评论 -
手机震动android代码
unit MobelZD;interfaceuses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls;type原创 2014-07-17 21:17:55 · 2745 阅读 · 0 评论