显示登陆窗体前加载一个动态框，如正在载入资源之类的,内容自己定义吧。 Application.Initialize; Form2:=TForm2.Create(Application);{Create创建闪现窗口对象} Form2.Show; Form2.Update; Application.CreateForm(TForm1, Form1); Sleep(1000); Form2.Hide; Form2.Free;{Free从内存中释放对象} Application.Run;
[代码]密码最多输入三次出错退出
这个是登录窗口的一个验证机制，写法很多种，这是其中一种。 procedure TFrmOrderBy.BtnOrderClick(Sender: TObject); begin if Length(EdtPassWord.Text) = 0 then Exit; with AQuery do begin Close; SQL.Clear; SQL.Add('select pwdcompare(:Pass,loginpassword) from login where loginname
[代码]窗体关闭时提示变动的保存
如果窗体有数据操作，在未保存时关闭窗体，进行一个提示。 procedure TFrmSave.FormCloseQuery(Sender: TObject; var CanClose: Boolean); //窗体关闭时提示变动的保存 begin if ADODataSet1.State in [dsInsert, dsEdit] then begin if MessageBox(0, '发现未保存的数据，需要保存吗？', '', MB_YESNO + M
[代码]清除容器内的组件内容
最近翻阅了以前delphi7时代的部分书籍和源码，发现有些东西和源码还是值得借鉴的，特摘录下来，备用。 procedure TFrmSave.ClearItem; //清除容器内的组件内容,容器按自己需要改变 var i: Integer; begin for i := 0 to GBxList.ControlCount – 1 do //选择容器 GBxList begin if GBxList.Controls[i] is TEdit then TEdit(GBxList.Controls[
[转载]Delphi Create(参数:nil、self、application)的区别
Create(nil);//需要自己释放 Create(Self);//当Self释放时自动触发释放 Create(Application);//当Application释放时自动释放 Create(nil);//这种方式创建的对象要自己手工进行FREE才会回收内存，其他很多内存泄漏就是忘了手工释放内存 Create(Self);//由self对象负责释放创建的对象，只要self没有释放掉，这个对象的内存就不会被释入掉，除程序员手工进行释放，他会触发很多事件。性能不是很好 Create(Appl
[转载]清除Berlin10.1恼人的证书吊销和访问Toolbar脚本错误
进入注册表 HKEY_CURRENT_USER\Software\Embarcadero\BDS\18.0\Known IDE Packages 修改 $(BDS)\Bin\CommunityToolbar240.bpl的值为 _Embarcadero Community Toolbar Package 再重启RAD试试！
[控件]Cxgrid获取分组小计值
最近有个项目用到比较复杂的统计，开始接触DEV，Dev下有个强大的表格那就是Cxgrid了。 项目上用到对分组小计后的值获取。 研究了半天，代码如下： var i, j: Integer; ASummary: TcxDataSummary; begin inherited; j := 0; for i := 0 to cxGrid1DBTableView1.DataController.RowCount – 1 do begin if cxGrid1DBTableView1.Dat