摘要： 本来我一直都是使用递归算法, 效率很低 下边这段代码是我原来写的 ----------------------------------------------------------------------------------------------------- procedure TForm1.GetDepartmentMsg; var Test, Test2 : TTreeNod... 阅读全文

摘要： unit DBGridExport; interface uses SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls, Db, DBGrids, Comobj, extctrls, comctrls, ActiveX; type TSpaceMark = (csComma, csSemicolon, csTab, ... 阅读全文

该文被密码保护。 阅读全文

摘要： ChangeFileExt(ExtractFileName(Application.ExeName), '') 阅读全文

该文被密码保护。 阅读全文

摘要： unit TestMemo; interface uses Windows, Classes, StdCtrls, Graphics, Controls, SysUtils, jpeg, Messages; type Test = class(TMemo) private Test: string; FCanvas: TCanvas; FPicture: TP... 阅读全文

该文被密码保护。 阅读全文

摘要： 透明的控件, 一般继承自TGraphicControl的(就是那些没有handle属性, 不能有focus的控件, 如image) 都有Transparent属性. 对TWinControl类的控件, 要实现透明只要完成以下 四步基本上就成了. 1.在Create中设定ControlStyle :=ControlStyle - [csOpaque]; 2. override 它的Create... 阅读全文

该文被密码保护。 阅读全文

摘要： var Str: TPoint; BarHand: THandle; begin GetCursorPos(Str); BarHand := GetDC(0); Panel1.Color := GetPixel(BarHand, Str.X, Str.Y); Caption := IntToStr(Panel1.Color); 阅读全文