内容列表
- Delphi动态创建树
- 数据结构如下： CREATE TABLE [tbTree] ( [ID] [varchar] (4) COLLATE NOT NULL , [Context] [nvarchar] (50) NULL , [ParentID] [varchar] (4) NULL , CONSTRAINT [PK_tbTree]
- 分类：Delphi 查阅全文
- 合理应用用户登录界面，用户登录时不必创建其他窗体
- ///////////////////// （一）项目文件 test.dpr //////////////////////program SerialGet;
uses Forms, UMain in 'UMain.pas' {frmMain}, ULogin in 'ULogin.pas' {frmLogin}, UDat
- 分类：Delphi 查阅全文
- 一个应用程序多次点击时，如何只让它只运行一个
- ///////////////////// （一）项目文件 test.dpr //////////////////////program SerialGet;
uses Forms, UMain in 'UMain.pas' {frmMain}, ULogin in 'UForm2.pas' {Form2}, UDataMo
- 分类：Delphi 查阅全文
- ADO带密码的数据连接、查询一个记录集、执行一SQL语句
- unit UDataModule;
interface
uses Controls,SysUtils, Classes, DB, ADODB,windows,forms,CustomCom_TLB;
type TDataModule1 = class(TDataModule) ADOConnection1: TADOCo
- 分类：Delphi 查阅全文
- 应用程序中当前路径的两中写法、COM中当前路径取得
- ///////////// 应用程序当前路径 ///////////// ExtractFilePath(paramstr(0))ExtractFilePath(application.ExeName)///////////// COM中当前路径 ///////////// .... .... TCustomMG = class(TTypedComO
- 分类：Delphi 查阅全文
- Delphi 与 Word_VBA
- '插入表格Sub setTable() Set myRange = ActiveDocument.Range(Start:=2, End:=2) ActiveDocument.Tables.Add Range:=myRange, NumRows:=3, NumColumns:=4End Sub
'取得Word常规字符串Sub getText() Set myR
- 分类：Delphi 查阅全文
- 将image的图片保存为JPG格式图片方法
- 将image组件的图片保存为JPG格式图片方法
procedure SaveAsJPG ;
var
jp: TJPEGImage; //Requires the "jpeg" unit added to "uses" clause.
begin
jp := TJPEGImage.Create;
try
&n
- 分类：Delphi 查阅全文
- Readers Choice Awards 2004
- To be honest, last year's awards were a lot more dramatic. Coming as they did after TurboPower Software (then a major player) decided to leave the Delphi arena, there were new winners to announce in m
- 分类：Delphi 查阅全文
- SaveComponentByFile
- unit savecomponent1;
interface
uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Db, DBTables;
type TForm1 = class(TForm)
- 分类：Delphi 查阅全文
- 查找某目录下的所有文件
- （1）查找指定扩展名的文件procedure TForm1.Button1Click(Sender: TObject);var sr: TSearchRec;begin ListBox1.Items.Clear ; if FindFirst('D:\work\*.*', faAnyFile, sr) = 0 then begin
- 分类：Delphi 查阅全文
- 我的DBTreeView--TreeView直接连接数据表
- 认真研究如下代码：DBTreeView--TreeView直接连接数据表unit Unit1;
interface
uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, DBTables, ComCtrls, Grids, DBGrids,
- 分类：Delphi 查阅全文
- Delphi 消息机制引入的一个副作用
- Delphi 在处理进程的消息时引入了一个隐藏的窗体Application ，借此进行消息的分发。这样的机制优美的处理了消息的分发和处置的问题。但是最近我发现这个机制也引入了一个副作用，会在某些情况下影响程序的界面交互行为。
我遇到的需求是需要在程序中实现单个实例，并且在第二个实例被启动的时候，首先将前一个实例置到最前，然后退出。按说这样的问题应该是比较典型的例子，但是这样的一个简单需求就受到了
- 分类：Delphi 查阅全文
- 关于VCL与OCX的设计开发
- 关于VCL与OCX的设计开发本文主要记录wanghome设计开发VCL和OCX的设计思想，实现理论及开发注意事项。这也是对我的思路的一个阶段整理。
- 分类：Delphi 查阅全文
- How to locate and highlight a string in a TWebBrowser
- uses mshtml;procedure WBLocateHighlight(WB: TWebBrowser; Text: string) ;const prefix = '<span style="color:white; background-color: red;">'; suffix = '</span>';var&
- 分类：Delphi 查阅全文
- ShareWare.Assistant
- http://www.smartitem.net/blog/up/ShareWare.Assistant.v1.2.1.0.WinALL.CRACKED-LUCiD.rarhttp://blog.csdn.net/2066/archive/2004/07/30/56043.aspx
- 分类：Delphi 查阅全文
- 查句柄知多少
-
基本上句柄是标志窗口，我可以根据句柄又可引申其中更多如类名，windowtitle等属性所以基于这点，一般开发工具会提供查句柄，查类名等工具，vs提供的spy++就是一个很好例子。现在教你们一查句柄知多少。其实也简单，下面贴出源代码procedure Tform1.TimerTimer(Sender: TObject);var Pos:&nbs
- 分类：Delphi 查阅全文
- 程序字体，我们自已选。
-
程序字体，我们自已选。也许我们可能对系统提供我们的字体不够知足，不时添加一些第三方漂亮字体，比如文鼎系列，但这样话，假如你设计程序label属性fontname选择了文鼎淹水体,那么程序运行到不同的平台，字体就会改回宋体，所以把自己喜欢的字体带在程序里不就好了。其实这也很简单，用到addfontresource加载字体，和removefontresource卸载字体。字体放在c盘，记住
- 分类：Delphi 查阅全文
- 项目迭代开发手记--文件分割存储用例的实现过程（2）
- 项目迭代开发手记--文件分割存储用例的实现过程（2）
在第二天早上的开发中我们扩展了第一天迭代开发的用例，我们考虑增加了压缩流的功能，减少数据的存储负担。
迭代2：
用例：对向数据库提交的二进制流进行压缩；那么从数据库提取的时候要进行解压操作，以获得原始图档数据。
通过查询资料我们找到Delphi的ZLib库支持对字节流的压缩和解压缩功能，这样我们只要使用该类
- 分类：Delphi 查阅全文
- 项目迭代开发手记--文件分割存储用例的实现过程（1）
- 摘 要 本文详细描述了在尝试使用极限编程在软件开发中的一个实现例子，在小步迭代开发中逐步的实现用例需要的功能，同时每个迭代都能集成实现的功能。
关键字 极限编程
在一次项目开发中我们开发组遇到了一个需求，该需求的要使用的技术是我们所不熟悉的，就是说在开发过程中我们必须逐步的掌握该项技术，同时希望能够尽可能的保持代码有好的结构，因为在不断增加功能的过程中，会让代码逐渐
- 分类：Delphi 查阅全文
- 根据时间日期格式从字符串中解析日期时间
- 根据时间日期格式从字符串中解析日期时间function StrToDtFmt(const S, Fmt: String; Dft: TDateTime): TDateTime;function StrToDtFmt(const S, Fmt: String; Dft: TDateTime): TDateTime;var Pts: array[1..10] of Integer;&nbs
- 分类：Delphi 查阅全文