无悔的勇气

摘要： 实例1 unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; constWM_ME=WM_USER+100; //自定义消息； type TForm1 = class(TForm) Button1: TButton;procedure Button1Click(Sender: TObject);//第一种消息处理方式; 只能处理常量消息； procedure wmme(var message:T... 阅读全文

摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;const TIMER_ID = 200;type TForm1 = class(TForm) Label1: TLabel; btkilltime: TButton; btsettime: TButton; procedure Button1Click(Sender: TObject); procedure btkilltimeCl... 阅读全文

摘要： unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type //定义接口如果接口独立成一个文件，则在应用程序中和实现程序中都要引用该接口文件； ICar = interface (IInterface) ['{ED52E264-6683-11D7-B847-001060806215}'] procedure drive; end; //接口实现类1，一定要加入Tint... 阅读全文

摘要： var BmpPath: PChar;begin BmpPath := 'C:\Temp\Test.bmp'; SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, BmpPath, SPIF_UPDATEINIFILE);end;函数原型BOOL WINAPI SystemParametersInfo( _In_ UINT uiAction, _In_ UINT uiParam, _Inout_ PVOID pvParam, _In_ UINT fWinIni);SPI_GETBEEP ... 阅读全文

摘要： unit OpenViewUrl;interface // URLEncode is performed on the URL// so you need to format it protocol://pathfunction OpenURL(const URL: string; const DisplayError: Boolean = False): Boolean;implementationuses IdURI, SysUtils, Classes, FMX.Dialogs,{$IFDEF ANDROID} FMX.Helpers.Android, Androidapi.JNI... 阅读全文

摘要： 万事大吉,只欠根据字体文件(.ttf文件)切换阅读字体,通常Android系统只带三种以下字体.一般用Java/Eclipse开发的话比较简单,typeface的createFromAsset,createFromFile之类的很容易使用. 但是由于FireMonkey是跨平台的类库,必然不能和平台帮得太紧,所以提供了抽象的封装. 但是也许Delphi XE5是Android平台的第一个版本,有些地方难免有疏漏,FireMonkey的封装没有提供更换字体的功能.但是我要实现的电子书阅读器换字体几乎是必须要实现的功能,所以只能给FireMonkey动动小手术了.FireMonkey的字体加载是由 阅读全文

摘要： TUniConnection的SpecificOptions参数决定了数据库连接配置参数，但可惜的是，SpecificOptions设计器界面，Devart公司只能让它在设计期配置！SpecificOptions参数为什么那么有用呢？举个例子讲，如果你要连接MSSQL，可能碰到老版本的OLEDB或者当下的NativeClient版本，具体参数可选为：prAuto、prSQL、prNativeClient、prCompact。因此，我们如果自己做界面参数配置，必须获取SpecificOptions默认值和下拉框表列表值。首先在界面上放TUniConnection，设置ProviderName为S 阅读全文

摘要： 我觉得Delphi最强大的的功能之一就是开发数据库三层应用的DataSnap，在Android上的实现，首先是完成服务器的设计：（1）利用向导完成DataSnap服务器的框架，如下图：由于是实验，所以选择VCL程序，如果是实际应用，建议Service程序我习惯使用TCP/IP作为通讯协议，简单且速度快，Sample Methods是演示和测试用缺省211端口使用TDSServerModule作为数据服务提供主体，非常方便变更为Service应用服务（2）设置服务器数据在TDSServerModule中设置数据，为简便起见，采用BDE引擎的DBDEMOS下animals.dbf数据库，有文字也有 阅读全文

摘要： 以下内容是根据Delphi的帮助文件进行试验的，主要测试Android下的消息提醒。首先建立一个空白的Android工程，然后在窗体中加入一个TNotificationCenter控件，如下图：再在uses中引用文件，如下：uses FMX.Platform;窗体上控件放置如下图：发送消息的代码如下：procedure TForm2.Button2Click(Sender: TObject);var MyNotification: TNotification;begin //通过消息中心创建消息 MyNotification := NotificationCenter1.CreateN... 阅读全文

摘要： delphi xe5 编译的程序在启动时会有短暂的黑屏出现，这个现象产生是因为启动首个activity时会加载一些初始化数据，整个时间大约在2~3秒，如何处理？网上有些资料，这里主要参考和整理了CSDN论坛上第42#liaobo的回复。第一步：建立2个文件：loading.png 和 styles.xml，其中loading.png 是启动时替代黑屏的图片，styles.xml是对背景图片的定义，其内容为： 特别需要注意的是：（1）Delphi中代码是大小写不敏感的，所以Delphi程序员一般在写程序时不太注意大小写。而在Java下大小写是敏感的，在styles.xml定义中“loading. 阅读全文