我一开始以为,将表单设置为隐藏,可以在表单创建事件中即FormCreate(Sender:TObject)去设置
因此, 我在这个procedure TForm.FormCreate(Sender:TObject)中,
想用一下两种方式实现
即:
调用 from.Hide
或设置 form.Visible:=false;
然而, 令人沮丧的是,窗口表单还是显示的,一点变化都没有,
更令人沮丧发狂的是,网上查资料,都说这么设置就可以
斯诚痛哉
在查资料
终于知道了问题所在:>
原来, 在FormCreate事件中设置可见性是无效的,必须另写一个事件,比如按钮事件,在这个事件里,再设置Hide或visible 就可以了
估计原因:
FormCreate 是对表单各项进行初始化,此时表单还未建立,所以还不能对表单属性进行设置(虽然编译器不提示错误信息)
......
函数一:
view plaincopy to clipboardprint?
uses
Windows,
SysUtils,
Classes,
ShellAPI;
function RunAndWait(FileName: string; Visibility: Integer): THandle;
var
zAppName: array[0..512] of Char;
zCurDir: array[0..255] of Char;
WorkDir: string;
StartupInfo: TStartupInfo;
ProcessInfo: TProcessInformation;
begin
try
StrPCopy(zAppName, FileName);
GetDir(0, WorkDir);
StrPCopy(zCurDir, WorkDir);
FillChar(StartupInfo, SizeOf(StartupInfo), #0);
......
Delphi正则表达式学习,参考CSDN万一老师的BLOG、CSDN、网络资料以及带源码的TPerlRegEx,在此注明,以后不再说明,在些感谢Google老师和百度老师
安装:
下载地址:http://download.csdn.net/source/1668436
1、安装.dpk文件,在Libary中添加TPerlRegEx单元存放路径
2、运行程序前复制pcrelib.dll到C:\WINDOWS下
小试:
procedure TForm1.FormCreate(Sender: TObject);
var
reg: TPerlRegEx; //声明正则表达式变量
begin
reg := TPerlRegEx.Create(nil); //建立
reg.Subject := 'GoodBoy is You!'; //这是要替换的源字符串
reg.RegEx := 'You'; //这是表达式, 在这里是准备替换掉的子串
reg.Replacement := 'Me'; //要替换成的新串
reg.ReplaceAll; //执行全部替换
ShowMessage(reg.Subject); //返回替换结果: GoodBoy is Me
FreeAndNil(reg); //或 reg.Free
end;
//License Version 1.1
//Delphi 7.0
procedure TForm1.btn1Click(Sender: TObject);
var
Reg : TPerlRegEx;
begin
Reg := TPerlRegEx.Cr ......
作为delphi的铁杆,在正式Delphi2010推出后,我当然也要尝尝新鲜,用电驴下来以后安装。呵呵二十多分钟就搞定了,启动也特快,简单使用一下,棒棒!!看来Delphi(太阳神)又回来了,如是我决定抛弃delphi2007,用这个新家伙。我所用的第三方组件主要是RemObjects和reportbuilder,reportbuilder还没有找到安装forD2009 Full source 或者forD2010 的,如果那位大哥有reportbuilder 11.03 full sourc 或者reportbuilder 11.06 请告诉我哦。这里先谈谈我安装RemObjects的经验。
1、如果你安装了RemObjects5.025先卸载。
2、下载RemObjects 6.0.39.777 full source (在CSDN里找) 和cracked
3、安装SDK ,HY,DA,完成后用cracked包里的文件覆盖安装文件夹里相应的文件。
4、打开RemObjects SDK for Delphi\Source\eDefines.inc文件
修改:
{ defines for Delphi 2009 }
{$IFDEF VER200}
为:
{ defines for Delphi 2009 }
{$IFDEF VER210}
5、复制Everwood\Source\*.*到RemObjects SDK for Delphi\Source\
4、打开Delphi2010 打开
RemObjects SDK for Delphi\Source\BuildPackages_D12.groupproj
打开RemObjects_IDE_D12.bpk
REMOVE RemObjects_Eve ......
此文适合Delphi新手阅读,特别是连接数据库方面还一懂半懂甚至根本不懂的新手;
--------------------------但总体显得有点乱-------------------------
本文章以Delphi 7和SQL Server 2000为例,控件名均为系统默认,如Unit1,DataModule1,Edit1,ADOCommand1,ADODataSet1,ADOConnection1,DataSource1等等。
初初接触Delphi时,想要连接数据库,但面对一大堆数据库类控件,无所适从,既不知该用哪个/些控件,也不知具体怎么连接数据库!
经过一段时间的“摸爬滚打”,算是初步摸索到了常用的连接方法。其实主要是用ADO连接,而ADO也是最常用的连接技术之一。
以下几个控件在连接数据库时是用得比较多的,并且通常的的连接架构是
————————————————————
数据库
  ......
利用Windows API函数WritePrivateProfileString 和GetPrivateProfileString可对.INI文件进行读写操作。其实,对.INI文件的读写完全可以利用Delphi的内置函数来实现。下面就介绍一些对.INI文件读写时相关的类及其属性方法。
1、TIniFile对象
以Delphi中,定义了一个TIniFile对象,将.INI文件封装在其中,并提供一些方法,专门用来对INI文件进行读写操作。如果在程序中要用到TIniFile类或其方法属性,就必须在程序单元的uses语句中手工加入对IniFiles单元的引用。
2、Create方法
该方法用来创建一个处理INI文件的TIniFile类型实例。
方法声明:constructor Create(const FileName:string);
参数说明:FileName指明待创建的INI文件的文件名;
注释:在使用TIniFile对象之前,必须先用此方法创建一个INI文件的实例。FileName中可以包含路径名,缺省时为Windows所在目录(一般就是C:\windows,对于Windows NT来说,则一般是c:\winnt)。用Create方法创建的实例,在使用完之后,调用Free方法释放内存。
3、ReadSection方法
该方法从INI文件中读出指定段的所有子键名,并存入Strings参数指定的字符串列表对象中。
方法声明:procedure ReadSection(const Section:string; S ......