搜索结果
查询Tags标签： delphi，共有 73条记录-
vst实例（2） 创建VST
前面我们知道，创建一个虚拟树，应该首先告知VST节点数据的大小（即nodedatasize），其实在创建树结构时，这一点并不是必须的，而是如果你需要让VST的每一个节点能指向一定的数据，从而在执行树的操作时，能用到这些数据，那么你最适合的方法是定义一个结构类型（record）…
2023/5/29 18:22:27 人评论 次浏览 -
Delphi 经典游戏程序设计40例 的学习 例30 残留的轨迹是圆形运动
unit R30;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, ExtCtrls, StdCtrls;typeTRei30 = class(TForm)Panel1: TPanel;Button1: TButton;ScrollBar1: TScrollBar;ScrollBar2: TScrollBar;ScrollBar3: TScrollBar;E…
2022/9/16 14:17:18 人评论 次浏览 -
Delphi 经典游戏程序设计40例 的学习 例29 残留的轨迹是钟摆线
unit R29;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, ExtCtrls, StdCtrls;typeTRei29 = class(TForm)Panel1: TPanel;Button1: TButton;ScrollBar1: TScrollBar;ScrollBar2: TScrollBar;ScrollBar3: TScrollBar;E…
2022/9/14 14:16:13 人评论 次浏览 -
Delphi 中的换行符sLineBreak
其实就是#13#10 //Delphi7中： constsLineBreak = {$IFDEF LINUX} #10 {$ENDIF} {$IFDEF MSWINDOWS} #13#10 {$ENDIF};//Delphi11中： constsLineBreak = {$IFDEF POSIX} _AnsiStr(#10) {$ENDIF}{$IFDEF MSWINDOWS} _AnsiStr(#13#10) {$ENDIF};
2022/8/24 23:23:19 人评论 次浏览 -
delphi基于结构的CRUD（JSON）
delphi基于结构的CRUD（JSON） 以采购订单为例。unit rest.tcgddtcgdd2; //代码由代码工厂自动生成 //2022-08-20 16:04:54 {$I def.inc} interfaceuses{$IFDEF firedac} db.firedac, db.firedacPool, {$ENDIF}{$IFDEF unidac}db.unidac, db.unidacpool, {$ENDIF}classe…
2022/8/20 23:55:55 人评论 次浏览 -
Delphi获取进程的窗口句柄的三种方式
handle := FindWindow(nil,PChar(窗口的标题)); 或者： procedure TForm1.Button1Click(Sender: TObject); varhCurrentWindow: HWnd;WndText:String; beginhCurrentWindow := GetWindow(Handle, GW_HWNDFIRST); while hCurrentWindow <> 0 do beginWndText:=GetWnd…
2022/8/17 5:25:39 人评论 次浏览 -
Delphi 经典游戏程序设计40例 的学习 例18 线条光线的威力
unit R18;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, ExtCtrls, StdCtrls;typeTpatDt = record //角色，记录类型Used : Byte;Sban : Byte;Xpos : Integer;Ypos : Integer;Scon : Byte; //计数器，1星星出…
2022/7/25 14:27:49 人评论 次浏览 -
Delphi 经典游戏程序设计40例 的学习 例13 各种卸妆效果的处理
unit R13;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, ExtCtrls, StdCtrls;typeTRei13 = class(TForm)Button1: TButton;Button2: TButton;Button3: TButton;Button4: TButton;Button5: TButton;tmr1: TTimer;proc…
2022/7/15 14:20:41 人评论 次浏览 -
Delphi 经典游戏程序设计40例 的学习 例11 零件贴图中的优先顺序
unit rei11;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, ExtCtrls;type//定义记录 类型，角色管理用TPatDt = recordUsed:Byte; //角色所使用的标记Sban:Byte; // 复合图案的编号Xpos:Integer; …
2022/7/13 1:25:03 人评论 次浏览 -
Delphi DB - TField.ProviderFlags 属性
Delphi TField.ProviderFlags 属性 单元：DB 说明：指定应用更新时提供程序如何使用字段值。 语法：1 property ProviderFlags: TProviderFlags;描述：ProviderFlags仅与提供给提供程序组件抯事件处理程序的数据包中出现的字段相关。此属性是一组标志，用于确定在应用更新…
2022/6/22 23:22:02 人评论 次浏览 -
delphi调用打印机打印Pdf格式文件
use Vcl.Printers, Winapi.ShellAPI；procedure TForm1.PrintDocument(const documentToPrint: string); varprintCommand: string;printerInfo: string;Device, Driver, Port: array[0..255] of Char;hDeviceMode: THandle; beginif Printer.PrinterIndex = ComboBox1.It…
2022/6/21 23:23:51 人评论 次浏览 -
【转】Delphi 开发跨平台 Android / iOS 程序的多语言
使用 Delphi 的 FireMonkey 框架，开发跨平台的程序，可以做到一个源码，编译成 Windows, Mac OS, Android, iOS，甚至是 Linux 上面运行的程序。 简单说，就是可以开发 Android 和 iOS 的 APP，同时代码不修改也可以运行在 Windows 上和 Mac OS 上面。 如果你发布的 APP …
2022/4/19 9:12:41 人评论 次浏览 -
Delphi 生成前端TreeView Json数据
前面的树形图，也就是TreeView一般读取的都是Json数据 例如 [{dispCode:01,dispName:上级1, children: [{dispCode:0101,dispname:子级1 },{dispCode:0102,dispname:子级2 },] }]下面代码，读取的数据表里需要有以下字段 DispCode：编码 DispName：名称 level_num：级次…
2022/4/9 6:19:26 人评论 次浏览 -
Delphi 错误：Error on call Winsock2 library function shutdown 应用程序没有调用 WSAStartup
Delphi 错误：Error on call Winsock2 library function shutdown 应用程序没有调用 WSAStartup错误解释：调用Winsock2库函数关闭时出现了错误 原因分析：常出现在三层环境下的sock连接没有正确关闭导致，例如：TSocket、TCP/IP、TIdFTP等 解决方法：1、检查代码语句中关…
2022/4/8 14:49:22 人评论 次浏览 -
Delphi三层中间件AB开源了
桌面客户端，BS客户端，手机移动端，都可以使用，支持多种服务 TCP服务WebSocket服务WebService服务WebBrokerAPI(Http)服务MormotAPI(Http)服务搞什么开发，一个服务端就搞定了，关键是有源码，想添加任何服务的功能都可以！ 欢迎加入AB二开平台QQ群103964922，学习交流！…
2022/2/27 23:54:05 人评论 次浏览
