- 博客(6)
- 资源 (4)
- 收藏
- 关注
原创 在 Delphi 下自定义通用对话框------自定义打开文件对话框
在 Delphi 下自定义通用对话框--------------自定义打开文件对话框 几次碰到有人在论坛里问如何在 Delphi 下自定义通用对话框,本人对此问题也比较感兴趣,所以抽点时间搞了下,现在把“成果”与大家分享。本文的题目大了点,通用对话框有好多,但这里只以打开文件对话框为例。其实自定义所有通用对话框的原理是一样的。 第一步:建立对话框模版 先来说个概念:对话框模版。对
2004-01-20 21:11:00
6414
原创 Delphi 完全时尚手册之 Visual Style 篇---使非标准 Win32 控件或自画控件也具有 Windows XP 的界面风格
Delphi 完全时尚手册之 Visual Style 篇---使非标准 Win32 控件或自画控件也具有 Windows XP 的界面风格 这里先说说两个概念:Theme(主题)和 Visual Style 。Theme 最早出现在 Microsoft Plus! for Windows 95 中,是 Windows 中 Wallpaper、Cursors、Fonts、Sounds 、
2003-05-13 17:47:00
1719
2
原创 Delphi 完全时尚手册之 CoolBar 篇---实现 CoolBar 的新特性 Chevron
Delphi 完全时尚手册之 CoolBar 篇---实现 CoolBar 的新特性 Chevron 我们发现到从 IE 5.0 以后,IE 的工具栏具有了一个新特性:当 IE 窗口缩小,使得工具栏上的按钮不能完全显示时,工具栏右边会出现一个小按钮(M$ 叫它 Chevron,实际上这是 CoolBar 的新特性),点击后出现一下拉列表,显示出被隐藏的按钮。这大大方便了我们对工具栏的使
2002-11-04 12:50:00
1754
原创 Shell编程---如何判断一目录是否共享?
下面函数要额外引用 ShlObj, ComObj, ActiveX 单元。function TForm1.IfFolderShared(FullFolderPath: string): Boolean; //将TStrRet类型转换为字符串 function StrRetToString(PIDL: PItemIDList; StrRet: TStrRet; Flag:string
2002-06-22 17:35:00
1176
1
原创 如何在 Listbox 上显示 In-place Tooltips
大家知道 TreeView 上的节点如果显示不完全,鼠标移上去会出现一提示,这就是 In-place Tooltips。下面这段代码在 Listbox 上实现这一功能(下面代码只是在标准 Listbox 上测试,如果是自画的,则要修改):{直接将下面代码拷贝到新建工程中Form1的Unit1.pas文件即可运行,不需添加任何控件}//--------------------------
2002-06-21 14:30:00
1130
原创 Shell_NotifyIcon函数新特性---Balloon Tips之深入研究
首先定义新的常数:const NIF_INFO = $10; NIM_SETVERSION = $00000004; NOTIFYICON_VERSION = 3; NIM_SETFOCUS = $00000003; NIIF_INFO = $00000001; NIIF_WARNING = $00000002; NIIF_ERROR = $00000003; NIN_BALL
2002-05-27 09:51:00
1959
WinPopupX 5.8
2009-02-16
WinpopupX5.6
2007-08-02
WinpopupX5.5
2007-07-10
WinpopupX
2007-04-10
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人