主要用到的是MSAA(Microsoft Active Accessibility) 函数：ObjectFromLResult，该函数在动态链接库 oleacc.dll 中定义。uses SHDocVw, MsHtml, ActiveX;type TObjectFromLResult = funct...
procedureTForm1.CheckBox1Click(Sender: TObject);begin{这里是让整个页面可编辑, 也可以单独编辑某个元素} WebBrowser1.OleObject.document.body.contentEditable := CheckBox1.Check...
分类：
Web程序 时间：
2015-12-02 07:55:03
阅读次数：
110
unit Unit1;interfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;typeTForm1 = class(TForm)private{ Private declaration...
一月 27th, 2005 by 猛禽风焱在《“18般武艺”？》中说到他碰上的被多种语言纠缠的问题。我在回复里说：很多语言只要能看懂几分就行了，没必要每一种都精通但是如果只会很少的一两种语言也是不行的。因为看了一些关于JAVA的反射技术的应用，忽然想到DELPHI的RTTI也很强，于是试着拿数据集下...
分类：
编程语言 时间：
2015-12-02 07:56:27
阅读次数：
158
判断头几个字节：function IsJpegFile(FileName: string): Boolean;constRightBuf : array[0..3] of Byte = ($FF,$D8,$FF,$D9);varBuf: array[0..3] of Byte;beginFillCh...
一、保存为HTML文件uses ActiveX;...procedure WB_SaveAs_HTML(WB : TWebBrowser; const FileName : string) ;var PersistStream: IPersistStreamInit; Stream: IStream...
分类：
Web程序 时间：
2015-12-02 07:54:37
阅读次数：
136
procedure TForm1.pnl1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);begin ReleaseCapture;SendMessage(pnl1.Handl.....
一、部署Tomcat二、新建一个web工程1.新建一个Project2.现在建立一个简单的web工程，所以只勾选下面选中的，此外，本版本（IntelliJ IDEA 14.1.5只支持3.1版本，并不支持更低版本）3.第2步骤点击Next后是以下界面，修改Project name，点击Finish。...
分类：
Web程序 时间：
2015-12-02 07:53:43
阅读次数：
343
这是一个系列的文档，长期目标是利用DeviceOne开发一些目前使用广泛的优质手机应用，我们会最大化的实现这些应用的每一个功能和细节，不只停留在简单的UI模仿和Demo阶段，而是一个基本可以使用的实际App。在实现的过程中，会有很多困难，还会发现有一些功能目前缺乏组件支持而无法实现，也会碰见各种移动...
分类：
微信 时间：
2015-12-02 07:55:55
阅读次数：
395
说明：在V2EX上看到扇贝技术员工发的帖子，讨论：为什么程序员英文要好？原帖地址：点击打开链接个人认为写得很好，也写一点自己的看法。原帖总结的几个要点：为什么程序员一定要学好英语：1.写汉语注释说实话，我也是刚刚体会到写汉语注释的坏处。一方面，在开发国际项目的时候绝对不能写汉语注释，尤其是国内国外协同开发的时候，会大大降低开发效率。另一方面，项目转换字符集的时候汉字注释的乱码会让你苦不堪言。别问我...
分类：
其他好文 时间：
2015-12-02 06:45:09
阅读次数：
133
简单问题的处理并不容易，用心的在意，用心的积累，保持纪律性，方能保持不被其所伤害。...
分类：
其他好文 时间：
2015-12-02 06:42:16
阅读次数：
130
class function TObject.MethodAddress(const Name: ShortString): Pointer;asm { -> EAX Pointer to class } { EDX Pointer to name } PUSH EBX PUSH ESI PUSH ...
1.MouseMove事件中加入：// ReleaseCapture;// Perform(WM_SYSCOMMAND, $F017 , 0);2.MouseDown事件中加入：// POSTMESSAGE(Self.Handle,WM_LBUTTONUP,0,0);// POSTMESSAGE(S...
今天在网上看到有网友发出了C++的生成太极图算法，兴起之下用Delphi抄了下，效果还可以。参考地址：http://www.cnblogs.com/WhyEngine/p/4051149.html先上代码：procedure TForm1.Button1Click(Sender: TObject);...
分类：
其他好文 时间：
2015-12-02 06:41:02
阅读次数：
120
虽然用delphi也有7，8年了，但大部分时间还是用在系统的架构上，对delphi底层还是一知半解，今天在网上看到一篇文章写得很好，虽然是07年的，但仍有借鉴的价值。现摘录如下：Delphi程序设计之--经验技巧这些日子太忙了，今天把剩下的部分贴完，希望对大家有用。看过前一篇的都知道此文的作者和出处...
public class Solution { private char[][] board; private List result = new ArrayList(); public List findWords(char[][] board, String[]...
分类：
其他好文 时间：
2015-12-02 06:42:20
阅读次数：
95
这是一个在窗体标题栏添加自定义按钮的组件（TTitleBarButton）开发实例，标题栏按钮组件TTitleBarButton以TComponent为直接继承对象，它是一个可以在窗体标题栏上显示按钮的组件，像最大化、最小化和关闭按钮等。1、首先确定组件的属性。属性是组件的重要组成部分，它相当于组件...
