VB/VC/Delphi
ycagri
这个作者很懒,什么都没留下…
展开
-
DELPHI中MessageBox的用法
MessageBox对话框 输入控件的 ImeName属性把输入法去掉就默认为英文输入了 MessageBox对话框是比较常用的一个信息对话框,其不仅能够定义显示的信息内容、信息提示图标,而且可以定义按钮组合及对话框的标题,是一个功能齐全的信息对话框信息提示图标,而且可以定义按钮组合及对话框的标题,是一个功能齐全的信息对框。 1、函数原型及参数 function MessageBox(hW转载 2006-12-30 15:53:00 · 988 阅读 · 0 评论 -
Delphi中ShellExecute的妙用
ShellExecute的功能是运行一个外部程序(或者是打开一个已注册的文件、打开一个目录、打印一个文件等等),并对外部程序有一定的控制。 有几个API函数都可以实现这些功能,但是在大多数情况下ShellExecute是更多的被使用的,同时它并不是太复杂。下面举例说明它的用法。开始一个新的应用程序 ShellExecute(Handle, open, PChar(c:/test转载 2006-12-30 16:02:00 · 1650 阅读 · 0 评论 -
Delphi中注册表的操作
在应用程序中,经常需要对注册表进行各种操作,如将程序名称、安装路径等信息保存到注册表中。Delphi对相应API函数做了进一步封装,使得在应用程序中操作注册表更加简单。1、原理Delphi提供了TRegistry类,它直接继承自TObject类,主要属性有:RootKey等,主要方法有:Create,CreateKey(Key),OpenKey(Key,CanCreate),WriteString转载 2007-01-04 14:36:00 · 763 阅读 · 0 评论 -
金额如何转换为人民币大写
Function CovMoney(money : Double) : String; //小写金额转换成大写金额 Var sStr, buf, sPower, buf1 : String; i, j, iPosition, lenth, iTmp : Integer; flag0 : boolean; Function转载 2007-01-05 10:48:00 · 1215 阅读 · 0 评论 -
DBGrid控件“点击标题栏自动排序功能”
procedure TForm1.DBGrid1TitleClick(Column: TColumn); var I,ii:Integer; cStr:string; c:TColumn; begin for ii:=0 to TDBGrid(Column.Grid).Columns.Count-1 do begin c:=TDBGrid(Column.Grid).Columns[ii]转载 2007-01-10 16:53:00 · 1062 阅读 · 0 评论