在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...
Delphi 7连接MySql 5.5.151.ODBC方式 必须要先有MySql的ODBC驱动,我下载的是全安装版,包括MySql服务器、各种所支持的连接、工作台、示例数据库、文档,若是无ODBC驱动,可以到官网http://dev.mysql.com/downloads/connector/odbc/下载。①数据源方式 首先,确认安装了MySql的ODBC驱动,打开“控制面板”→“管理工具”→“数据源”,切换到“驱动程序”页,查看“MySql ODBC 5.1 Driver",如下图所示: 切换到"系统DSN"...
各位大虾:
小生菜鸟飞飞想完成如下工作:以Oracle9i作为后台数据库,以Delphi7作为前台开发工具制作一个客户机/服务器(C/S)类型的数据库应用系统.计划以ADO组件的形式访问数据库中的表.请问我该如何利用Delphi7自带的安装程序制作工具InstallShield Express for Delphi7将Oracle客户端打包进安装程序呢? 如果每一台客户机上都要安装Oracle客户端的话那好象太笨了.请问有没有什么办法可以直接把需要的文件拷贝出来,同时把注册表里的哪...
环境:windows2008R2企业版64位,安装Oracle 11g 64位版服务端。C#3.5开发的b/s系统,32位版。delphi7开发的c/s服务 错误提示: Oracle 11g 64位版在64位操作系统上连接Oracle的问题和解决方案 BadImageFormatException 同时解决Delphi7.0采用Oledb链接64位o环境:windows2008R2企业版64位,安装Oracle 11g 64位版服务端。C#3.5开发的b/s系统,32位版。delphi7开发的c/s服务
错误提示:
Oracle 11g 64位版在64位操作系统上连接Orac...
引用地址是:http://192.168.44.148:6060/HNXCS_HZYL/NewSoapHZYLInterface.exe/wsdl/IHZYL_SOAPInterFace
而在代码种对URL重新赋值的时候应该使用:http://192.168.44.148:6060/HNXCS_HZYL/NewSoapHZYLInterface.exe/soap/IHZYL_SOAPInterFace如果 我们用刚才的那个地址会发生什么现象呢:我已经从坑里爬出来了 小伙伴们别掉下去了
DELPHI7 ADO二层升三层新增LINUX服务器方案
咏南跨平台中间件提供:DELPHI7 ADO二层升三层,跨平台的中间件既可以部署在WINDOWS服务器上面,也可以部署在LINUX服务器上面。
因为自SQL SERVER2017开始支持LINUX,所以原来的基于WINDOWS+ADO+SQL SERVER的项目,现在可以无缝地迁移到LINUX服务器上面。
笔者使用腾讯云CENTOS7(云服务器)成功部署了咏南跨平台中间件,客户端是DELPHI7开发的(客户端也支持更高版本DELPHI开发)。咏南...