s11ss-CSDN博客

原创 Delphi Edit右键系统菜单加自定义菜单项

闲言少叙，详见代码！

2014-10-18 21:23:05 2402

原创 [delphi] 让AllocateHwnd接受一般函数地址作参数

Classes单元的AllocateHWnd函数是需要传入一个处理消息的类的方法的作为参数的，原型：Delphi(Pascal) code function AllocateHWnd(Method: TWndMethod): HWND;很多时候，我们想要创建一个窗口，而又不想因为这个参数而创建一个类，怎么办？换句话说，就是能不能使传入的参数是个普通的函数而不是类的方法呢

2012-04-05 22:19:48 1947 1

原创 delphi 动态控制窗口置顶且界面不闪

procedure TForm1.CheckBox1Click(Sender: TObject);begin if CheckBox1.Checked then SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE or SWP_NOMOVE) else SetWindowPos(Handle, HW

2009-11-17 11:45:00 1711 1

原创代码最简短的 delphi 程序

建立 Console Application，修改代码为：end. Windows XP SP2 + Delphi7 测试通过。以后有时间分析一下：） ——ps: 其实这程序没有任何功能，没有任何实际用处，只是好奇玩一下：）

2009-11-13 00:11:00 838 1

原创 VB Split 函数在 Delphi 中的不完全实现

procedure TForm1.Button1Click(Sender: TObject); type//函数返回值不能是array of ...，必须自定义类型，含义还是一样，返回字符串数组 Tas = array of string; //expression:源字符串，delimiter:分隔字符串（默认为空格）；可以是 AnsiString 或 Wide

2009-10-28 14:06:00 1625

delphi 一个单元多个窗体

把多个窗体所对应的unit里面的代码弄到一个unit里，然后注意$R指令，后面不能是星号，必须指定具体dfm的名称。

2014-10-25

Delphi Edit右键系统菜单加自定义菜单项

Delphi Edit右键系统菜单加自定义菜单项，注意是添加，不是用新菜单替换系统菜单！

2014-10-18

Delphi2007 实现更改子菜单的弹出位置

原理：安装钩子，当判断是子菜单的窗口出现时，对其进行子类化，处理WM_WINDOWPOSCHANGING消息来改变子菜单的弹出位置。

2012-08-02

Delphi 菜单的Hint （Delphi 2007）

TMenuItem没有ShowHint属性，其Hint的显示比较特别。针对TPopupMenu和TMainMenu需采取不同的方法。本Demo主要展示了TPopupMenu菜单的Hint显示。

2012-07-27

Delphi 2007实现高亮显示TWebBrowser中鼠标指向的HTML元素

原理：取鼠标下的HTML元素IHTMLElement，然后把焦点框（一个特殊的窗体）显示到元素所在的位置。未使用js。

2012-06-14

Delphi多个DLL共享全局数据Demo

2012-03-20

面向对象开发实践之路(Delphi版).part2.rar

光盘源码： http://download.csdn.net/source/140926

2009-11-30

面向对象开发实践之路(Delphi版).part1.rar

光盘源码： http://download.csdn.net/source/140926 _ 想不到是总共只能传15MB，我还以为是单个文件的限制呢（压成了4个包），看来剩下的暂时传不了了。要这本电子书的来以下网址下载（用真实邮箱注册一个号即可）。 http://www.51leifeng.net/thread-10329-1-9.html