日志

分享 在Delphi中定义自己图标的消息框

2013-4-20 23:35

应用程序在运行当中经常要输出各种即时信息，Delphi提供了多种形式的消息对话框可以满足这些要求，尽管可以使用各种标志定制一个消息框，但仍不能将自己的图标放在消息框内，也不能修改其标准行为去创建自己的消息框，其实通过调用函数MessageBoxIndirect()就很容易绕过这些明确的限制，这是一个功能很强、易于使用的函数 ...

个人分类: Delphi7|456 次阅读|0 个评论

分享 VclSkin使用教程（续） .

2013-4-11 21:15

1. TSkinData TSkinData 主要用于美化你的程序, 只要把TSkinData控件放下去，它就能自动美化所有窗体。 属性 Active: 使用或取消对程序的美化。 DisableTag: 取消对某个特定的组件的美化; 把组件的Tag属性设为99就行了。 (control.tag mod 100=disabletag) SkinControls: 指定哪类组件能被美化. SkinFil ...

个人分类: Delphi7|617 次阅读|0 个评论

分享 delphi 读写注册表

2013-4-5 22:02

在应用程序中，经常需要对注册表进行各种操作，如将程序名称、安装路径等信息保存到注册表中。Delphi对相应API函数做了进一步封装，使得在应用程序中操作注册表更加简单。 1、原理 Delphi提供了TRegistry类，它直接继承自TObject类，主要属性有：RootKey等，主要方法有： Create， CreateKey(Key)， Ope ...

个人分类: Delphi7|1172 次阅读|1 个评论 热度 1

分享 下文为您介绍的SQL语句可以实现判断字段是否存在，并判断添加列的表中是否有主键

2013-4-5 15:15

--判断要添加列的表中是否有主键 ifexists(select1fromsysobjectswhere parent_obj = object_id ('tb')and xtype = 'PK' ) begin print'表 ...

个人分类: SQL数据库资料|1013 次阅读|0 个评论

分享 SQL Server判断对象是否存在 (if exists (select * from sysobjects )

2013-4-4 10:29

1 判断数据库是否存在 Sql代码 if exists (select * from sys.databases where name = ’数据库名’) drop database if exists (select * from sys.databases where name = ’数据库名’) drop database 2 判断表是否存在 Sql代码 if exists (select * from sysobjects where id = ...

个人分类: Delphi7|740 次阅读|0 个评论

分享 Delphi第三方控件

2013-4-2 21:30

Delphi第三方控件全面评比介绍 古人云∶“工欲善其事，必先利其器。” 这句话，我想凡是用Delphi的朋友，应该都有很深切的体会吧。的确，如果Delphi没有了控件的支持，那么人气度一定会大大的降低，不会有现在这样多的Fan了，俺也就改行用 BCB或VC了，呵呵。 但是，现在控件满天飞，不要说DSP(Delphi Super Page)了，光一 ...

个人分类: Delphi7|604 次阅读|0 个评论

分享 给Delphi程序（exe,dll）添加版本信息

2013-4-2 00:44

注意： 在保存.rc文件时，要保存为Ansi代码页格式 第一，给exe文件添加版本信息。 这个我想大家都会添加的，Delphi已经给我们提供了相关选项了. 具体做法:打开你的工程，选择菜单Project--Options...---Version info 选中"Include version infomation in project",然后你就可以添加具体版本信息了， 编译你的工 ...

个人分类: Delphi7|840 次阅读|0 个评论

分享 delphi中Try...Except 语句和Try...Finally 语句区别【经典】

2013-4-1 20:10

在Try...Except 语句中可以进行抛出异常和处理异常的工作。Try...Except 的一般形式如下： try Statements1; except on Exception1 do HandleStatements1; on Exception2 do HandleStatements2; ⋯ on ExceptionN do HandleStatementsN; else Statements2; end. 对于有些操作，在异 ...

个人分类: Delphi7|1046 次阅读|0 个评论

分享 delphi try except语句 和 try finally语句用法以及区别

2013-4-1 20:07

try//尝试执行 {SomeCode} except//出错的时候执行, Except有特定的错误类型 {SomeCode} end; try//尝试执行 {SomeCode} finally//无论如何都强制执行 {SomeCode} end; 例: try Age:=StrToInt(Edit1.Text); ShowMessage(Format('生于%d年', )); except on EConvertError do showmessage('输入编辑框的不是一个有 ...

个人分类: Delphi7|601 次阅读|0 个评论

本页有 1 篇日志因作者的隐私设置或未通过审核而隐藏