harvardfeng的专栏

使用方法如下：BOOL RegisterHotKey(HWND hWnd,    //响应该热键的窗口句柄Int id,           //该热键的唯一标识UINT fsModifiers, //该热键的辅助按键UINT vk        //该热键的键值); 为了得到唯一标识，我们还将用到另一个API函数 ATOM GlobalAddAtom(

一、四舍五入法    四舍五入是一种应用非常广泛的近似计算方法，其有算术舍入法和银行家舍入法两种。    所谓算术舍入法，就是我们通常意义上的四舍五入法。其规则是：当舍去位的数值大于等于5时，在舍去该位的同时向前位进一；当舍去位的数值小于5时，则直接舍去该位。    所谓银行家舍入法，其实质是一种四舍六入五留双（又称四舍六入五奇偶）法。其规则是：当舍去位的数值小于5时，直接舍去该位；当

如果WINDOWS系统的短日期格式为“yyyy/m/d”，执行下面的代码会报错：2013-01-29 00:00:00不是合法的日期procedure TFrmQuerySale.FormShow(Sender: TObject);varsDate: string;begininherited;// 默认查当天的销售数据sDate := FormatDateTime('

代码如下：   ...   ExcelApp,workbook:   Variant;     ...   ExcelApp:=CreateOleObject( 'Excel.Application ');   workbook:=CreateOleObject( 'Excel.sheet ');上次大家给我的代码是： workbook.close; Exc

问题：打开 XE8 的 ShareSheet 示例，发布到 Android 实机，按 Share 选 Gmail 结果显示：没有权限添加附件。 适用：XE8 for Android修复方法：请将源码 FMX.MediaLibrary.Android.pas 复制到自己的工程目录里，再进行修改。找到下面代码：SharedActivity.sta

和某牛讨论Delphi读Android联系人.写了如下代码uses  FMX.Helpers.Android,  Androidapi.JNI.JavaTypes, Androidapi.JNI.GraphicsContentViewText,  FMX.Platform.Android, Androidapi.JNIBridge, Androi

1.Showmessage/msessagedlg/raise Exception 终于切换不卡死，虽然来晚了。以前做安卓用安卓的JNI解决对话框，现在可以用FMX对话框解决，但那个raise异常对话框还是无法替换。跨平台对话框终究才是出路。2.ListView支持下拉刷新。ListView+各种风格，玩爆Listbox， 遐想无限。3.加入了TMultiView和TDetailP

delphi是我学编程时的入门语言，用过一年多的时光，个人对它还是挺喜欢的。现在用的少了，一些快捷键和语法也有些遗忘了，这里对delphi的快捷键做个总结，留个纪念。嘿嘿，不知道还有多少人还用着这门语言？代码标记和切换 Ctrl+Shift+NUM 、 Ctrl+NUMCtrl+Shift+NUM 在光标行设置最多九个临时标志号，对临时切换非常有用。行的左边将出现一本书，封

问题：XE8 for Android 方向传感器无法正常运作（在 XE7 是正常的）测试：官方示例 Samples\Object Pascal\Mobile Snippets\OrientationSensor\适用：XE8 for Android修复方法：请将源码 System.Android.Sensors.pas 复制到自己的工程目录里，再进行修改。修

第一个版本，分享了。unit AutoUpdate;interfaceuses  System.SysUtils, System.Types, System.UITypes, System.Classes,  System.Variants, System.IOUtils, System.JSON, System.Net.HttpClient{$IFDEF MS

先看下面这两个对话框的显示，正如你看到的，效果不一样。而这两个对话框都是用下面这句显示的，只不过，在两个Form中调用。    MessageDlg('是否退出？', System.UITypes.TMsgDlgType.mtConfirmation,      [System.UITypes.TMsgDlgBtn.mbOK, System.UITypes.TMsgDlgBtn

DELPHI XE开发Office Add-In

第一次编译时，设定android SDK：F:\RAD Studio XE6\PlatformSDKs\adt-bundle-windows-x86-20131030\sdkF:\RAD Studio XE6\PlatformSDKs\android-ndk-r9cC:\Program Files\Java\jdk1.7.0_40SDK更新代理XE6 不支持

unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls;type TScrollBox=C

TSF：Microsoft Windows 文本服务框架(TSF) 是一个包含在Windows XP 及其后继版本操作系统的系统服务。TSF为高级文本输入的通信以及自然语言技术提供了一个简单的可扩展的框架。以上引自百度百科。引用Winapi.MsCTF单元，如果没有去高版本XE里面搜一搜，或者百度一下。procedure TForm1.btnSTFCli

无需引用单元，直接创建对应Form  procedure MyShowForm(FormName: string); var ctxRtti: TRttiContext; typeRtti: TRttiType; methRtti: TRttiMethod; LClass: TRttiInstanceType; aForm: TCustomFor

unction CnPYIndex(const CnString: string): string;{  返回中文的拼音首字母}const  ChinaCode: array[0..25, 0..1] of Integer = ((1601, 1636), (1637, 1832), (1833, 2077),    (2078, 2273), (2274,

两种方法,一是用ADO连接,问题是Excel文件内容要规则,二是用OLE打开,但操作就没有象操作数据库那么方便了.一、用ADO连接：设置属性ConnetionString 选择 Microsoft Jet 4.0 OLE DB provider Select or enter a datasorce name -> 选择你要打开Excel文件 User name默认是A

有一段多线程的程序需要完善, 捋了一遍 XE4 中关于多线程的源码, 发现有这三个类方法就足够我用了, 暂时结束学习.TThread.CreateAnonymousThread(); //普通TThread.Queue();                //队列TThread.Synchronize();          //VCL 同步转自： http://www.c

先装好IE8浏览器,然后修改下列注册表:[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Main\FeatureControl\FEATURE_BROWSER_EMULATION]"我的程序.exe"=dword:00008000

1. DATASNAP 历史作为MIDAS起始于Delphi3，Delphi4是MIDAS II，Delphi5中是MIDASIII，而后基于COM远程数据模块方式使用TCP/IP,HTTP,(D)COM构建出强大的通讯能力.从Delphi6开始改名为DataSnap,直到D2007这个框架一直在使用.D2009重新架构了DataSnap—移除COM依赖,使用TCP/IP以更轻

破解版D2010打开提示更新问题 找到注册表[HKEY_CURRENT_USER/SOFTWARE/CodeGear/BDS/7.0/AutoRun/UpdateCheck]清空下面两个键的值"ProgramToRun"="""CommandLine"=""

type TFruit = class(TObject) public constructor Create; overload; virtual; abstract; constructor Create(Color: TColor); overload; virtual; end; TApple = class(TFruit) public

掌握网络编程的基本原理掌握网络控制的使用方法具备通过使用网络控制开发简单网络应用程序的能力 Delphi 的Socket 编程概述Socket 是建立在传输层协议(主要是TCP 和UDP)上的一种套接字规范，它定义两台计算机间进行通信的规范(即一种编程规范)，如果说两台计算机是利用一个“通道”进行通信，那么这个“通道”的两端就是两个套接字。套接字屏蔽了底层通信软件和具体操作系统

新版本的Delphi XE2 使用FireMonkey框架，它不同于VCL,以往的数据感知控件不能放在它上面，所以XE2提供了LiveBinding功能作为替代方案。另外它也是通用的基础设施，同样可用于传统的VCL.这里用一个极其简化的例子说明它的意图，在窗体上放一个edit和一个label,找到label的LiveBings属性，选New LiveBinding...,再选择TBindExp

Delphi 框架Frames的使用转眼间使用Delphi开发已近2年了，其间有几次想把它学好，但总有一种排斥心理，找各种借口间断了自己的努力，不知不觉间自己差距越来越大，无奈我必须面对现实，从现在起坚持做自己该做的，出来混，迟早要换的，现在就要努力补课，换自己以前的偷懒和惰性。今天第一次听说delphi中的Frames，程序中要复用一个界面，我一开始想用弹出一个模特Frame的方法实

核心提示：Delphi 后续 Unicode 版本中， 一些单元里碰到UTF8编码字符，如果我们可能没有安装西欧的一些字符集，单元有可能显示错误，用delphi右键菜单 File Format->UTF8也未必能修复好。...Delphi 后续 Unicode 版本中， 一些单元里碰到UTF8编码字符，如果我们可能没有安装西欧的一些字符集，单元有可能显示错误，用delphi右键菜单

在Rad Studio XE2版本，有一个VCL Style设计器，是一个易用的工具，可以轻松的创建新的VCL Styles, 工具位于Tools -> VCL Style designer, 下图图片:styledesigner.png在image category下你可以看到image，这里你可以定义控件是怎么绘制的，你可以编辑所有的控件，比如b

delphi 实现 邮件发送(TidSMTP控件)新建一个delphi工程，添加 TidSMTP控件以及 TidMessage控件。配置TidSMTP的相关属性：name = smtpMaxLineAction = maExceptionReadTimeout = 0Host = 'smtp.163.com' //163邮箱地址Port = 25Auth

需求 这个 demo 的要求： Embarcadero Delphi XE2的试用版 (差不多占用了所花费总时间的42%来填写表格,然后再获取工具)Mac Lion 10.2+ 从AppStore免费获取XCode 一台越狱过的IPhone用来检验实际设备上的效果 (或者有一个开发者证书可用于签名)简单的程序 - 这是演示的是简化的3x3格的井字棋游戏. 为了开发一个 IOS

//zip 用的是 VCLUnZip, VCLZip 控件//得到所有子目录列表function GetAllSubDir(Directory: string; var RetList: TStringList): Boolean;//得到所有子目录文件列表function GetAllDirFile(Directory: string; var RetList: TStringL

将ADOQUERY的lookup字段的lookupCache设为True(缺省为False)即可。

概述：  ^: 指针  @: 取址  #: 十进制符  $: 十六进制符@:取址运算符;var  int:integer;  p:^integer;begin  new(P);  int:=24;  p:=@int;  dispose(P);end;^:指针的引用解析操作符;var  pint:^integer;

1、TChart Hello world放一个控件到窗体上，然后写代码加入一个折线数据序列： var Series: TLineSeries; begin Series := TLineSeries.Create(Chart1); Series.Add(100, '头部', clRed); Series.Add(200, '颈部', clGreen); Chart1.AddSeries(Ser

新版本的XE已包含UAC权限设置了，不再有那么多麻烦的设置步骤！ As Invoker : 以当前用户默认的权限运行。Highest Available: 以当前用户可以获得的最高权限运行。（非管理员权限也能运行）Require Administrator: 以系统管理员权限运行。(非管理员权限不能运行)