摘要： 学习利用TApplicaiton的OnMessage方法来添加控件的消息响应！unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, Grids, DBGrids;type TForm1 = class(TForm) DBGrid1: TDBGrid; ADOTable1: TADOTable; DataSource1: TDataSource; procedure FormCreate(Sender: TObj 阅读全文

摘要： 学习用IsChild(WebBrowser1.Handle, Msg.Hwnd)判断鼠标事件是否来自TWebBrowser unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, OleCtrls, SHDocVw, StdCtrls, MSHTML;type TForm1 = class(TForm) WebBrowser1: TWebBrowser; procedure FormCreate(Sender: TObject); p 阅读全文

摘要： 1.Delphi控制javascript Delphi读取JavaScript变量num WebBrowser1.OleObject.document.Script.num; Delphi调用JavaScript函数getZoom() WebBrowser1.OleObject.document.Script.getZoom(); 2.JavaScript控制delphi 用delphi定时器监测javascript变量的变化,实现javascript对delphi的控制. 阅读全文

摘要： 首先关联文件---------------------------------------------------------------------------- 用来实践的JavaScript----------------------------------------------------------------------------Delphi 调用JavaScript的代码： 阅读全文

摘要： 区域性/语言名称区域性标识符区域性""（空字符串）0x007F固定区域性af0x0036南非荷兰语af-ZA0x0436南非荷兰语（南非）sq0x001C阿尔巴尼亚语sq-AL0x041C阿尔巴尼亚语（阿尔巴尼亚）ar0x0001阿拉伯语ar-DZ0x1401阿拉伯语（阿尔及利亚）ar-BH0x3C01阿拉伯语（巴林）ar-EG0x0C01阿拉伯语（埃及）ar-IQ0x0801阿拉伯语（伊拉克）a... 阅读全文

摘要： 想在DELPHI中应用GoogleMap吗，简单，费话不多说照着弄一下就明白了。代码：unit fMain;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, OleCtrls, SHDocVw, StdCtrls, ComCtrls, IdTCPConn... 阅读全文

摘要： Google map api已经被很多web应用所关注，事实上，在delphi程序中我们也可以享受到这一服务。下面就是一些有关delphi与google map api应用例子。 其实delphi中使用google map api，无非就是在delphi应用程序中内含TWebbrowse。 代码: http://blog.marcocantu.com/blog/google_map_delphi... 阅读全文

摘要： 这个东西实现了已经有一段时间了，那个时候谷歌还没有退出中国内地呢！而现在呢，谷歌都退了有一些日子了！紧以此纪念一番！ 话说谷歌API，我相信很多人应该都知道！不晓得在实际应用中，用的人多不多（我说的不是Web方面的）。谷歌API提供了很多接口，但是貌似唯独没有提供对Delphi的接口（我们Delphi程序员果然很尴尬啊，很多类库，都没有我们的份，都需要自己来实现）。而我又需要这么个东西，于是，我... 阅读全文

摘要： Copy code#include <stdio.h>#include <windows.h>typedef enum _DEBUG_CONTROL_CODE {SysDbgReadVirtualMemory = 8} DEBUG_CONTROL_CODE, *PDEBUG_CONTROL_CODE;typedef struct _MEMORY_CHUNKS {ULONG ... 阅读全文

摘要： AlphaBlend 是指定图像混合透明的函数, 在 Graphics、GraphUtil、RibbonStyleActnCtrls 单元用到. 　　下面的测试是把一张图片显示在窗体, 并可以调整透明度. 　　代码文件: unit　Unit1;　interface　uses　　Windows,　Messages,　SysUtils,　Variants,　Classes,　Graphics,　Con... 阅读全文