largewang-CSDN博客

原创 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 820

原创 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 947

原创 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 856

原创 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 787

原创 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 959

原创进程间传递消息（发送和接收系统消息）

{ 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 1472

原创 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 854

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人