MessageBox对话框是比较常用的一个信息对话框，其不仅能够定义显示的信息内容、信息提示图标，而且可以定义按钮组合及对话框的标题，是一个功能齐全的信息对话框信息提示图标，而且可以定义按钮组合及对话框的标题，是一个功能齐全的信息对框。
1、函数原...
Charlie Wang
5年前 (2015-03-05)
特别在动态创建控件时，有时经常需要遍历控件。
如果知道控件名称，则可以通过FindComponent – 查找(定位)组件，如果不知道的话，只能遍历控件了。
遍历一个Panel上的所有控件：
Var
i: integer;
begin
...
Charlie Wang
5年前 (2015-02-11)
Delphi中的StringReplace函数是SysUtils单元中自带的函数,该函数可以替换字符串中的指定字符。
function StringReplace (const S, OldPattern, NewPattern: string; Flags: TRep...
Charlie Wang
5年前 (2015-02-03)
最近的项目中经常在程序中动态创建控件，势必用到Create。
但是随之而来的问题就是动态创建的控件是否可以正确的释放内存？
以及 Create(nil), Create(self), Create(Application)的区别又是什么呢？
Cre...
Charlie Wang
5年前 (2015-02-02)
unit ALScreenSnap;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ShellAPI;
...
Charlie Wang
5年前 (2015-01-31)
网上搜到的Delphi邮件发送系统，绝大多数是使用SMTP协议来发送。
但是事实上它们已经过时了，大多数邮件服务器已经屏蔽了Delphi Indy的邮件发送，从而导致Delphi发送不成功。
事实上，让Delphi通过Outlook.Application来发送邮...
Charlie Wang
5年前 (2015-01-30)
当处理完TreeView控件树形结构的数据后，根据不同的树形节点Level，加上不同的图片。
图片的ImageList已经放置好，并且TreeView的Images已经连上带有图片的ImageList。
除了手动添加图片外，还可以通过代码，根据判断不同Le...
Charlie Wang
5年前 (2015-01-29)
当处理完TreeView控件树形结构的数据后，需要默认自动全部展开，可以用到TreeView的Expanded属性。
var
icount : integer;
begin
RzTreeView1.Items.EndUpdate;
//示例中用的是R...
Charlie Wang
5年前 (2015-01-29)
cxGrid默认不显示行号，但是可以通过cxGrid1DBTableView1CustomDrawIndicatorCell事件来重绘行号
选中cxGrid1DBTableView1，在OnCustomDrawIndicatorCell事件中，输入以下代码：
pr...
Charlie Wang
5年前 (2015-01-28)
根据组件名称，来定位到组件，并且更改组件属性
主要用到Delphi FindComponent 函数
//循环将RzBackground1 - #12的图片改为Sample中的图片
for I := 1 to 12 do
begin
...
Charlie Wang
5年前 (2015-01-27)
