- 博客(7)
- 收藏
- 关注
RSS订阅原创 Creating a Transparent Form
To create a transparent splashscreen, like for example the splash displayed when adobe acrobat reader starts, do the following:Create the a new form Set the Border Style to bsNone Set the Posi
2005-01-05 17:09:00
807
原创 Creating Forms that are stored in DLLs
There are lots of resources and solutions out there on the internet that are specific to this problem, however, in using the BusinessSkinForm components, that are tightly integrated with the VCL and m
2005-01-05 17:04:00
936
原创 function GetVersion(sFile: string; bIncludeBuild: boolean): string;
function GetVersion(sFile: string; bIncludeBuild: boolean): string;var dwfvw, dwZero, dwvsf: DWORD; Major, Minor, Release, Build: DWord; pfvw: PChar; pvsf: PVSFixedFileInfo; s: string;begin Resu
2005-01-05 16:44:00
841
原创 LineDDA的一个例子
unit Unit1; interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, Buttons;type TfmMain = class(TForm) procedure FormPaint(
2004-12-20 16:34:00
772
原创 Template 模式之Delphi实现
unit Tpl_meth;{Design pattern example -some simple classes using the Template Method pattern.}interfacetype TAbstractTemplateClass = class(TObject) protected function Algorithm_StepA: Integer
2003-03-03 18:08:00
941
原创 进程间传递消息（发送和接收系统消息）
{ 2002.07.22 关于如何发送和接收系统消息 作者：王珍义 nickname:LargeWang(老王) QQ: 33728007 欢迎光临鹏业软件 www.pengesoft.com.cn 以下代码Delphi7.0通过，编译后启动两个进程，然后在一个窗口中点击Button1试试。}unit Unit1;interfaceuses Windows, Mes
2003-03-03 09:47:00
1456
原创 Singleton模式之Delphi实现
type TSingleton = class(TObject) public A : Integer; class function NewInstance: TObject; override; procedure FreeInstance; override; class function RefCount:
2002-09-19 09:23:00
842
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人