易截截图软件、单文件、免安装、纯绿色、仅160KB
热门标签: c c# c++ asp asp.net linux php jsp java vb Python Ruby mysql sql access Sqlite sqlserver delphi javascript Oracle ajax wap mssql html css flash flex dreamweaver xml
 最新文章 : delphi

Delphi 隐藏窗口表单

   
  我一开始以为,将表单设置为隐藏,可以在表单创建事件中即FormCreate(Sender:TObject)去设置
  因此, 我在这个procedure TForm.FormCreate(Sender:TObject)中,
   想用一下两种方式实现
   即:
   调用      from.Hide
   或设置   form.Visible:=false;
   然而, 令人沮丧的是,窗口表单还是显示的,一点变化都没有,
   更令人沮丧发狂的是,网上查资料,都说这么设置就可以
   斯诚痛哉
   在查资料
   终于知道了问题所在:>
   原来, 在FormCreate事件中设置可见性是无效的,必须另写一个事件,比如按钮事件,在这个事件里,再设置Hide或visible 就可以了
   估计原因:
   FormCreate 是对表单各项进行初始化,此时表单还未建立,所以还不能对表单属性进行设置(虽然编译器不提示错误信息)
   
  ......

如何让Delphi调用外部程序并等待其运行信息(如结束)

函数一:
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);  
    ......

1、Delphi正则表达式学习

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 2010 上安装 RemObjects 6.0.39.777

作为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中用ADO连接数据库

此文适合Delphi新手阅读,特别是连接数据库方面还一懂半懂甚至根本不懂的新手;
     --------------------------但总体显得有点乱-------------------------
     本文章以Delphi 7和SQL Server 2000为例,控件名均为系统默认,如Unit1,DataModule1,Edit1,ADOCommand1,ADODataSet1,ADOConnection1,DataSource1等等。
     初初接触Delphi时,想要连接数据库,但面对一大堆数据库类控件,无所适从,既不知该用哪个/些控件,也不知具体怎么连接数据库!
     经过一段时间的“摸爬滚打”,算是初步摸索到了常用的连接方法。其实主要是用ADO连接,而ADO也是最常用的连接技术之一。
     以下几个控件在连接数据库时是用得比较多的,并且通常的的连接架构是
————————————————————
             数据库
          ......

使用Delphi内置函数读写INI文件


利用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 ......
总记录数:644; 总页数:108; 每页6 条; 首页 上一页 [99] [100] [101] [102] [103] [104] 105 [106] [107] [108]  下一页 尾页
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号