- 博客(6)
- 收藏
- 关注
RSS订阅原创 在 Delphi 下自定义通用对话框------自定义打开文件对话框
在 Delphi 下自定义通用对话框--------------自定义打开文件对话框 几次碰到有人在论坛里问如何在 Delphi 下自定义通用对话框，本人对此问题也比较感兴趣，所以抽点时间搞了下，现在把“成果”与大家分享。本文的题目大了点，通用对话框有好多，但这里只以打开文件对话框为例。其实自定义所有通用对话框的原理是一样的。 第一步：建立对话框模版 先来说个概念：对话框模版。对
2004-01-20 21:11:00
6518
原创 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
1802
2
原创 Delphi 完全时尚手册之 CoolBar 篇---实现 CoolBar 的新特性 Chevron
Delphi 完全时尚手册之 CoolBar 篇---实现 CoolBar 的新特性 Chevron 我们发现到从 IE 5.0 以后，IE 的工具栏具有了一个新特性：当 IE 窗口缩小，使得工具栏上的按钮不能完全显示时，工具栏右边会出现一个小按钮（M$ 叫它 Chevron，实际上这是 CoolBar 的新特性），点击后出现一下拉列表，显示出被隐藏的按钮。这大大方便了我们对工具栏的使
2002-11-04 12:50:00
1840
原创 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
1213
1
原创 如何在 Listbox 上显示 In-place Tooltips
大家知道 TreeView 上的节点如果显示不完全，鼠标移上去会出现一提示，这就是 In-place Tooltips。下面这段代码在 Listbox 上实现这一功能(下面代码只是在标准 Listbox 上测试，如果是自画的，则要修改)：{直接将下面代码拷贝到新建工程中Form1的Unit1.pas文件即可运行，不需添加任何控件}//--------------------------
2002-06-21 14:30:00
1168
原创 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
2032
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人