随笔分类 - Delphi
摘要：//点击不同按钮生成不同页面加载到某个panel上面。procedure TMainForm.DemoButtonClick(Sender: TObject);var NewDemoClass: TFormClass; //TFormClass = class of TForm; 涉及到类的类 ...
阅读全文
摘要：1、安装delphi7时出现VisiBroker for Cpp 而百度：VisiBroker for Cpp 是在由VisiBroker for Cpp开发类别 Miscellaneous Shareware 软件。产品简介：VisBroker是Inprise公司实现CORBA技术的分布式对象产品...
阅读全文
摘要：201505151、各位我D7的项目放到XE运行，发现里面引用了某个XE没有的单元文件【oxmldom】，提示：[DCC Fatal Error] FrmMain.pas(37): F1026 File not found: 'oxmldom.dcu'其中的某个，它的路径在D7的\Borland\D...
阅读全文
摘要：procedure Pub_ClearOnePanCondition(APan: TWinControl);var intI: integer; PanTemp: TScrollBox;begin for intI := 0 to APan.ControlCount - 1 do begin...
阅读全文
摘要：slConnection := TStringList.Create;slConnection.Delimiter := '&'; slConnection.DelimitedText := DBConStr; ConnectionConfig.Server := slConnectio...
阅读全文
摘要：短信猫 服务端： IdTCPServer1: TIdTCPServer; IdAntiFreeze1: TIdAntiFreeze; 客户端 IdTCPClient1: TIdTCPClient; IdAntiFreeze1: TIdAntiFreeze; IdIPWatch1: TIdIPWatc
阅读全文
摘要：http://www.delphifans.com/infoview/Article_730.html日期：2006年2月20日 作者：潇潇2003 人气：5602 查看:[大字体 中字体 小字体]1．引言在利用Delphi开发应用程序的时候，通常我们要设计出很多各种格式的文档、报表，经常要进行文件...
阅读全文
摘要：\Delphi 6数据库开发典型实例\图表的绘制1、在主窗体里面打开子窗体：ShowForm(Tfrm_Print);procedure Tfrm_Main.ShowForm(AFormClass:TFormClass);beginwith AFormClass.Create(Self) dotry...
阅读全文
摘要：这是Delphi7自带例子C:\Program Files\Borland\Delphi7\Demos\TeeChart以下为翻译的文字，有部分不准确。TeeChart Pro 5.0是一个库 100%的原生Borland Delphi图表和图形组件可以包括在您的应用程序。TeeChart Pro ...
阅读全文
摘要：1、计算软件启动了多长时间：用定时器，每分钟触发一次；procedure TFrmMain.tmCheckLegalTimer(Sender: TObject);Var Minutes:LongInt; NewDay:String;begin Minutes:=MyReg.ReadInteger(...
阅读全文
摘要：在设置窗体中chkAutoStart: TCheckBox;在设置窗体中 chkAutoStart: TCheckBox;procedure TFrmSetup.FormCreate(Sender: TObject);Var s:String; _RootKey: HKEY;_Localkey: S...
阅读全文
摘要：private //窗体移动；OldPos,NewPos:TPoint;bMove:Boolean;procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Inte...
阅读全文
摘要：1 procedure TFrmPlay.mnDeskPicClick(Sender: TObject); 2 Var s:String; i:Integer; 3 begin 4 //s:=Path+'SetPic.exe'; 5 //EnableDebugPrivilege(True)...
阅读全文
摘要：在dos 下用命令启动一个服务：NET START "Windows Desktop Reminder" 一下为用delphi启动服务：Function RunProcess(sApp,sPara:String):Boolean;beginZeroMemory(@sStartInfo, sizeof...
阅读全文
摘要：打开一个配置文件：打开一个配置文件操作TStringGrid 1 Procedure EmptyGrid(Var sg:TStringGrid); 2 Var i:Integer; 3 begin 4 for i:=1 to sg.RowCount -1 do 5 sg.Rows[i].clear;...
阅读全文
摘要：mmoMonitor:Tmemo;mmoMonitor.Lines.ValueFromIndex[0]:=aInfo ; 1 procedure TMainForm.LogInfo(aInfo: string; IsShow: Boolean); 2 begin 3 ctsLog.Enter; ...
阅读全文
摘要：{*******************************************************}{ }{ Delphi公用函数单元 ...
阅读全文
摘要：http://blog.csdn.net/honglixx/article/details/3624934 1、override overload reintroduce的中文叫法是什么？ override：覆盖；overload：重载；Reintroduce：重定义 2、在子类中overrid...
阅读全文
摘要：方法一： 要加单元 PsAPIprocedure TForm1.tmr1Timer(Sender: TObject);begin edt1.Text:= format('memory use: %d KB', [GetProcessMemUse(GetCurrentProcessId)]);//方法...
阅读全文
摘要：1 (**************************************************) 2 (* *) 3 (* Advanced Encryption Standar...
阅读全文