以下是为您整理出来关于【delphi7】合集内容，如果觉得还不错，请帮忙转发推荐。
1 2{《HeadFirst设计模式》之策略模式 } 3{ 本单元中的类为策略类 } 4{ 编译工具: Delphi7.0 } 5{ E-Mail : guzh-0417@163.com } 6 7unit uStrategy; 8 9interface1011type12 {飞行接口，及其实现类 }1314 IFlyBehavior = Interface(IInterface)15 procedure Fly;16 end;1718 TFlyWithWings = class(TInterfacedObject, IFlyBehavior)19 public20 procedure Fly;21 end;2223 TFlyNoWay = class...
Delphi 是以工程为中心来开发应用程序的，即每个应用程序都是一个工程，由一个或多个文件及工程文件组成。组成工程的几种文件包括：工程文件、单元文件、窗体文件、资源文件、工程选项及桌面配置文件、中间编译单元、备份文件、包文件等。1.工程文件（ .dpr）工程文件的扩展名为.dpr。工程文件包含了应用程序的入口，位于“ Begin”和“ End”之间。注意：用户应该尽量避免修改工程文件内的代码，除非确实有修改它的原因，否则最好...
在delphi开发中，经常需要用到窗体中控件的name名来进行对象方法或属性的调用，所以如何对delphi窗体进行简洁，清楚，完整的描述就很重要。最好能不看界面也能进行界面编码，具体如下表所示：xxx界面控件类型name captiontext备注 把控件的常用属性作为列名，列名可以扩展，这样就不需要在编码时不断查询控件对象管理器了。 原文：https://www.cnblogs.com/zxwbky/p/10057612.html
转载地址：https://www.cnblogs.com/findumars/p/7147523.html1.启动delphi7。2.File-->Open Project ...打开TMS component 源目录下的“tmsd7.bpg”。3.在打开的窗口列表中，依次在各选项上点击鼠标右键，选择“Install”。4.将源目录下所有的pas文件、dfm文件及“tmsdefs.inc”文件拷贝到“c:\program files\borland\delphi7\lib”下。5.将源目录下的advgrid.res asgres.res asgspin.res的文件拷贝到“c:\program files\borland\...
消息创建WM_CREATE:代码如下program Project1;usesWindows, Messages;{供 WM_PAINT 消息调用的自定义过程} procedure OnPaint(h: HWND); conststr = ‘创建的窗口程序‘; varDC: HDC;ps: PAINTSTRUCT;Rect: TRect; beginMessageBeep(0);DC := BeginPaint(h, ps);GetClientRect(h, Rect);DrawText(DC, PChar(str), -1, Rect, DT_SINGLELINE or DT_CENTER or DT_VCENTER);EndPaint(h, ps); end;function WndProc(wnd: HWND; msg: UIN...
如果运行一个耗时的循环，可能会导致程序不会响应用户的其它操作，例如鼠标点击。这个时候可以在循环中添加Application.ProcessMessages，以便于在循环执行到此代码时，应用能够响应用户的操作。这里的用户操作仅限于对此应用的操作，用户对其它软件或操作系统的操作都是可以的。我之前写过一个抽奖小程序，在一个对号码随机抽取的循环中，发现无法点击程序的其它按钮。原文：https://www.cnblogs.com/huiy/p/12466999.html
123456789101112131415161718192021uses superobject; procedure TForm1.FormCreate(Sender: TObject);var aJson: ISuperObject;aSuperArray: TSuperArray; i:Integer;begin {1、赋初值} aJson:=SO(‘{"zoo":"涂磊动物园","animals":[{"name":"猴子","year":"12"},{"name":"老虎","year":"132"}]}‘); {2、读值前，一定要先判断是否存在} if aJson[‘animals‘]<> nil then showmessage( aJson[‘animals‘].As...
http://bbs.csdn.net/topics/380045353用DelphiXE在WIN2008下编写一个访问WebServices的DLL ws.dll，只有一个输出函数，如下：function Login(URL:PAnsiChar; UserName: PAnsiChar; UserPass: PAnsiChar; LocalLogin: Boolean):PAnsiChar;var tStr:String;begin try Result := PAnsiChar(GetLoginSoap(True,URL + WSDL_Login,nil).Login(UserName,UserPass,LocalLogin)); tStr := ‘成功‘; ...
procedure TForm1.DBGrid1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);begin //首先将窗体的keypreview设为true //禁止按delete 删除键 if Key=46 then begin //ShowMessage(‘ok‘); Key=0; end; //首先将窗体的keypreview设为true //禁止按backspace 返回退格键，这里如果Edit内容为数字则这个方法不好用，有待研究 if key=8 then ...
示例如下program Project1;usesWindows,Messages;{供 WM_LBUTTONDOWN 消息调用的自定义过程}procedure OnLButtonDown(h: HWND); varBrushHandle: HBRUSH;Rect: TRect; beginGetClientRect(h, Rect); {获取客户区矩形}BrushHandle := CreateSolidBrush(RGB(0,0,0)); {建立黑色笔刷}FillRect(GetDC(h), Rect, BrushHandle); {填充客户区}DeleteObject(BrushHandle); {删除笔刷}e...