delphi中间件

摘要： 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',&# 阅读全文

摘要： Delphi的TCustomForm留有一个为IDE的可视化设计的用的接口Designer.Designer是IDesignerNotify, IDesignerHook 接口.我在这里实现了这些接口.程序不用做任何改动,只要调函数BeginDesign就可以开始像IDE一样设计.EndDesign函数是结束设计.{******************************************************************************TFrom DesignHook接口的实现.wr960204 武稀松2007.9.10******************** 阅读全文

摘要： //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 阅读全文

摘要： 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. 阅读全文

摘要： {*******************************************************}{ }{ 图形分析 }{ }{ 版权所有 (C) 2008 咏南工作室(陈新光) }{ }{*******************************************************}unit uChart;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, TeeProcs, TeEngine, C 阅读全文

摘要： 在单元初始化的时候:initialization WinExec('regsvr32.exe /s MyPlayX.ocx',sw_hide); 阅读全文

摘要： 最近解决了一个问题-减少内存占用。不过是有条件的，只能在WinXp,Win2K中应用此方法，不显示主窗体一直运行的程序最佳。以前程序占用11M内存，我用动态创建窗口的方法只能减少不到100K，应用此方法后内存占用只有496K。把下面的过程放到一个Timer中，每隔一段时间执行一次，如5秒。{*********** Clear Memory* From Muse2008**********}procedure ClearMemory;begin if Win32Platform = VER_PLATFORM_WIN32_NT then begin SetProcessWorkingSetS... 阅读全文

摘要： 提供一个系统空闲时间函数（ms）,你可以用timer控件定时监测，如果系统空闲时间超过指定时间则做你想做的事：（系统空闲-指系统无任何操作，包括键盘和鼠标）function LastInput:dword;var LInput: TLastInputInfo;begin LInput.cbsize := sizeof(TLastInputInfo); GetLastInputInfo(LInput); result := GetTickCount - LInput.dwtime;end; 阅读全文

摘要： 我在淘宝上的二手书店，有空去看看！http://shop35357269.taobao.com/ XHTML... 阅读全文

摘要： 在Delphi中，事件实际上是专门化的属性，它是一个过程（procedure）的指针。要添加事件，首先应在所定义的类中说明一个用来指向事件过程的指针，该指针的作用是当事件一旦发生，就通过这个指针执行所指向的处理这个事件的过程。最后通过指定符 published公布定义的事件属性以及与之关联的事件处理过程指针。private FpCalc : TNotifyEvent;//事件处理过程指针published property OnpCalc:TNotifyevent read FpCalc write FpCalc;{定义事件属性名}procedure TForm1.pCalc(Sender: 阅读全文