是蓝蓝的呀

摘要： http://www.cnblogs.com/jxsoft/archive/2011/06/02/2067712.html //在任务栏显示 进度条 object Form9: TForm9 Left = 0 Top = 0 Caption = #20219#21153#26639#26174#31 阅读全文

摘要： Delphi2010发布了. 虽然凭着对Delphi的热爱第一时间就安装了,但是现在可能是年纪大了,对新事物缺乏兴趣了.一直都没有仔细研究. 今天有点时间试了一下新功能. 本来C#和Delphi.NET是支持类的构造函数/析构函数的(注意不是实例的构造和析构).也就是在模块初始化/卸载的时候会调用. 阅读全文

摘要： mmoComplain: TMemo;//cxmComplain.Text 会造成回车键 转换成十六进制的字符串 #$D#$A，而非#13#10 //cxmComplain.Text范例：'风发的是'#$D#$A'范ljk'#$D#$A'13123' strComplain:=cxmComplain.Lines.CommaText; //函数原型 function AdjustLin... 阅读全文

摘要： //1019unit System; 中发现记录体函数命名怪异//乍一看，很怪异，其实是结构体里面 的变量后面直接写 函数类型了。不像传统先定义T***Event = procedure(Sender: TObject;LbName : string)of object;再使用 VarClear ：= T***Event; PVariantManager = ^TVariantMan... 阅读全文

摘要： strTimeZone := Format('%s ~ %s',[formatdatetime('yyyy-mm-dd',dtpStartTime.DateTime), formatdatetime('yyyy-mm-dd',dtpEndTime.DateTime)]); strRecordMsg 阅读全文

摘要： http://www.linuxso.com/linuxbiancheng/8889.html 本人测试过程中发现问题： 1、至少要引用后两个 单元文件 uses IOUtils, Vcl.Styles, vcl.Themes;否则如果只引用 vcl.Themes，编译可以通过，运行时异常“Unab 阅读全文

摘要： 学习笔记： Delphi之线程类TThread - 5207 - 博客园http://www.cnblogs.com/5207/p/4426074.html 阅读全文

摘要： 学习笔记：delphi多线程知识 最近一直在温习旧的知识，刚好学习了一下Java的线程安全方面的知识，今天想起之前一直做的Delphi开发，所以还是有必要温习一下，看看这些不同的编程语言有什么不同之处。 Delphi的线程同步方法： 1、临界区 申明一个临界资源 FLock : TRTLCriticalSection; 先初化一个临界资源对象 InitializeCriticalSect... 阅读全文

摘要： i:=0; while i <=100 do begin ... INC(i,4); end; 不能用for循环，只能用像上面的方法折衷一下 阅读全文

摘要： procedure SetTransparentForm (popupFrm:TForm;Color:TColor;AlphaBlendValue:Integer); var FrmTransparent: TFrmTransparentForm; begin if not Assigned(FrmTransparent) then FrmTransparent:=TFrmTrans... 阅读全文

摘要： //窗体Showmedol 遇到的奇怪异常： cannot make a visible window model //背景：ShowModal A窗体，A窗体再ShowModal B窗体；A是透明背景窗体，B是提示窗体； //第一次使用该全局变量，使用完毕后，FreeAndNil，目的是不影响第二次使用（和重新初始化属性） if not Assigned(frmAd) then ... 阅读全文

摘要： http://blog.csdn.net/ckli/article/details/2201418 阅读全文

摘要： 想法源于：类可以提前声明，具体类内容可以后面写明； TFrmChangePWTransparent = class; //这里声明其他的类，或一些表里 TFrmChangePWTransparent = class(TForm) end; 构思：一个包写好好多类名，然后在另一包写好具体类的属性方法， 阅读全文

摘要： [plain] view plain copy 根据枚举定义集合 TMyColor = (mcBlue, mcRed); TMyColorSet = set of TMyColor ; [plain] view plain copy 根据枚举定义数组 type TMyEnum = (red,green,blue); {定义枚举} procedure TF... 阅读全文

摘要： 添加以下的项目到项目组中， \tangram2.6(XE2)\framework\Core\Tangram_Core.dpk 调试此包的SysModuleMgr.pas的函数，本人还没有测试 阅读全文

摘要： TTrayIcon用法 self.trycn1.Icon:=Application.Icon; Self.trycn1.Hint:=self.Caption; self.trycn1.Visible:=true; 关闭时 begin self.trycn1.Visible:=false; Application.Terminate; end; procedure... 阅读全文

摘要： object grdpnlAdd: TGridPanel Left = 0 Top = 0 Width = 466 Height = 268 Align = alClient //重要 BevelOuter = bvNone BorderWidth = 1 Color = clWhite Colum 阅读全文

摘要： //cbb1: TComboBox; 指定某一行，不给下拉，自读伪装 实现； cbb1.Style :=csSimple; //设定style 不可以下拉 cbb1.ItemIndex := 3; //指定某一行， daf :=cbb1.Text; //取值 procedure TForm9.cbb1Change(Sender: TObject); //重点 当值改变时... 阅读全文

摘要： 1、以下此异常，为exe没有加载到Tangram_Core.bpl 放到exe当前文件夹下即可 2、此例子的接口实现在exe中，exe中下发通知到dll，dll 中 as 获取接口传窗体到exe中； procedure TUserModule.Notify(Flags: Integer; Intf: 阅读全文

摘要： 链接: https://pan.baidu.com/s/1JiA2FOrRcrIrCPHGTNz0Lw 提取码: xcbc \01-窗体技巧\QQ窗体\QQFrm.sln; \01-窗体技巧\仿XP系统的任务栏菜单\仿XP系统的任务栏菜单.sln; \01-窗体技巧\向窗体中拖放图片并显示\向窗体中 阅读全文

摘要： http://www.cnblogs.com/devcjq/articles/2906224.html 阅读全文

摘要： // TComboBoxEx cbbCity: TComboBoxEx; item: TComboExItem; cbbCity.ItemsEx.Clear; //清空 cbbProv.itemIndex //当前索引 item := cbbCity.ItemsEx.Add; //添加项 // cbbCity.ItemsEx.AddItem(FGQRegion.AreaRegio... 阅读全文

摘要： object scrlbx1: TScrollBox Left = 1 Top = 1 Width = 479 Height = 379 Align = alClient Color = clBtnFace ParentColor = False TabOrder = 0 ExplicitLeft 阅读全文

摘要： //分析虚拟树demo6-VirtualTreeView\VirtualTreeViewV5.3.0\Demos\Minimal的main.pas文件 阅读全文

摘要： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons; type TForm1 = class( 阅读全文