摘要: Delphi 的RTTI机制浅探<二> [作者:Savetime 转贴自:Delphibbs.com 点击数:2852 更新时间:2004-12-28 文章录入:aleyn] 本文上篇基本上是 RTTI 入门介绍,续篇介绍了所有 TypInfo.pas 中的函数,附加了 Classes.pas、Graphics.pas、Controls.pas 中的几个 RTTI 相关函数。对于关键函数的代码提供汇编注释。希望本文覆盖了 Delphi 中 80% 的 RTTI 函数。时间仓促,错误难免,敬请批评指正。目 录====================================== 阅读全文
posted @ 2008-04-20 08:07 delphi中间件 阅读(451) 评论(0) 推荐(0)
摘要: uses TypInfoprocedure SetImeA(AOwner:TForm);var i:Integer;begin for i := 0 to AOwner.ComponentCount - 1 do begin if GetPropInfo(AOwner.Components[i],'ImeName')<>nil then begin SetPropValue(AOwner.Components[i],'ImeName', readinifile(getinifile,'ime','imename',&# 阅读全文
posted @ 2008-04-19 15:10 delphi中间件 阅读(818) 评论(0) 推荐(0)
摘要: Delphi的TCustomForm留有一个为IDE的可视化设计的用的接口Designer.Designer是IDesignerNotify, IDesignerHook 接口.我在这里实现了这些接口.程序不用做任何改动,只要调函数BeginDesign就可以开始像IDE一样设计.EndDesign函数是结束设计.{******************************************************************************TFrom DesignHook接口的实现.wr960204 武稀松2007.9.10******************** 阅读全文
posted @ 2008-04-19 10:56 delphi中间件 阅读(3190) 评论(0) 推荐(0)
摘要: //edit by cxg. 2008-04-19 10:01:52//增加保存"显示标题"procedure TCustomDBGridEh.SaveColumnsLayoutProducer(ARegIni: TObject; Section: String; DeleteSection: Boolean);var I: Integer; S: String;begin if (ARegIni is TRegIniFile) then TRegIniFile(ARegIni).EraseSection(Section) else if DeleteSection the 阅读全文
posted @ 2008-04-19 10:49 delphi中间件 阅读(603) 评论(0) 推荐(0)
摘要: procedure TFrmColSelect.SaveGridLayOut;var Ini: TIniFile;begin if CheckBox1.Checked then Grid.SaveGridLayoutIni(ExtractFilePath(Application.ExeName) + '/Grid.ini', Owner.ClassName + '$' + Name, true) else begin Ini := TIniFile.Create(ExtractFilePath(Application.ExeName) + '/Grid. 阅读全文
posted @ 2008-04-15 08:35 delphi中间件 阅读(470) 评论(0) 推荐(0)
摘要: {*******************************************************}{ }{ 图形分析 }{ }{ 版权所有 (C) 2008 咏南工作室(陈新光) }{ }{*******************************************************}unit uChart;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, TeeProcs, TeEngine, C 阅读全文
posted @ 2008-04-14 11:09 delphi中间件 阅读(232) 评论(0) 推荐(0)
摘要: 在单元初始化的时候:initialization WinExec('regsvr32.exe /s MyPlayX.ocx',sw_hide); 阅读全文
posted @ 2008-04-12 17:33 delphi中间件 阅读(270) 评论(0) 推荐(0)
摘要: 最近解决了一个问题-减少内存占用。不过是有条件的,只能在WinXp,Win2K中应用此方法,不显示主窗体一直运行的程序最佳。以前程序占用11M内存,我用动态创建窗口的方法只能减少不到100K,应用此方法后内存占用只有496K。把下面的过程放到一个Timer中,每隔一段时间执行一次,如5秒。{*********** Clear Memory* From Muse2008**********}procedure ClearMemory;begin if Win32Platform = VER_PLATFORM_WIN32_NT then begin SetProcessWorkingSetS... 阅读全文
posted @ 2008-04-05 15:24 delphi中间件 阅读(351) 评论(0) 推荐(0)
摘要: 提供一个系统空闲时间函数(ms),你可以用timer控件定时监测,如果系统空闲时间超过指定时间则做你想做的事:(系统空闲-指系统无任何操作,包括键盘和鼠标)function LastInput:dword;var LInput: TLastInputInfo;begin LInput.cbsize := sizeof(TLastInputInfo); GetLastInputInfo(LInput); result := GetTickCount - LInput.dwtime;end; 阅读全文
posted @ 2008-04-05 15:05 delphi中间件 阅读(247) 评论(0) 推荐(0)
摘要: 我在淘宝上的二手书店,有空去看看!http://shop35357269.taobao.com/ XHTML... 阅读全文
posted @ 2008-04-05 14:41 delphi中间件 阅读(230) 评论(0) 推荐(0)