delphi
pipilang3220119
这个作者很懒,什么都没留下…
展开
-
一段代码
unit untWorkThread; interface uses Windows,Classes,SysUtils; type TWorkItem=class end; TProcessWork=procedure (Sender:TObject;Work:TWorkItem) of Object; TWorkThread=class(TThread) pr转载 2015-12-11 00:13:24 · 159 阅读 · 0 评论 -
一个测试
unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, RzEdit, Vcl.ExtCtr原创 2015-12-11 11:18:28 · 224 阅读 · 0 评论 -
有点线程池的意思
unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, RzEdit, Vcl.ExtCtr原创 2015-12-11 15:31:39 · 194 阅读 · 0 评论 -
serchpath$(BDSLIB)\$(Platform)\Release
serchpath$(BDSLIB)\$(Platform)\Release原创 2015-12-16 00:05:38 · 463 阅读 · 0 评论 -
json解析
unit Unit1;interfaceuses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.ScrollBox, FMX.Mem转载 2015-12-18 23:23:22 · 174 阅读 · 0 评论 -
一些TreeView属性
设置鼠标经过效果HotTack tureRowSelect ture原创 2015-12-06 22:56:53 · 405 阅读 · 0 评论 -
Delphi 实现检测线程类TThread是否结束
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TMY = class(TThread) public constructor create()转载 2015-12-07 22:29:07 · 1315 阅读 · 0 评论