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)