ftwsnow

摘要： type TEditLight= class (TEdit) private FEditSel: Boolean; procedure WMNCPAINT(var msg: TMessage); message WM_NCPaint; procedure SetEditSel(Value: Boolean); published property EditSel: Boolean read FEditSel write SetEditSel default False; end;procedure TEditLight.SetEditSel(Value: Boo... 阅读全文

摘要： procedure TForm1.RoundControl(Control: TWinControl; arc1, arc2 :Integer);var R: TRect; Rgn: HRGN;begin with Control do begin R := Control.ClientRect; Rgn := CreateRoundRectRgn(R.Left, R.Top, R.Right, R.Bottom, arc1, arc2); //Perform(EM_GETRECT, 0, LParam(@R)); InflateRect(R, -5, -5);... 阅读全文

摘要： Delphi 的 Toolbar在Toolbar内可以显示图片和文字，图片的放置方式需要images与一个imageList组件想关联。其中有几个概念：imageList 图片如何控制大小？ 其实imageList中的图片是可以整体控制大小的，默认是height×weight = 16×16 改成想要的尺寸就可以了imageList 对于背景透明的图片默认是背景是黑色的！ 这里要控制ImageList 的ColorDepth属性，不要使用与设备相同，采用 cd32Bit。更改了Toolbar 相关的 toolButton的Caption属性没有文字显示! 这里要打开Tool 阅读全文

摘要： type TDBGrid = class(DBGrids.TDBGrid) protected procedure Paint; override; end; 阅读全文

摘要： MSDN关于WM_MOUSEMOVE的说明：TheWM_MOUSEMOVEmessageispostedtoawindowwhenthecursormoves.Ifthemouseisnotcaptured,themessageispostedtothewindowthatcontainsthecursor.Otherwise,themessageispostedtothewindowthathascapturedthemouse.也就是说，你在比如ControlY单击鼠标后，系统就SetCapture，鼠标就被当前的WindowCapture了(即ControlY)，当你放开鼠标时才Rele 阅读全文

摘要： {修改系统标题栏高度,所有窗口都会改变}var ncm: TNonClientMetrics;begin ncm.cbSize := sizeof(TNonClientMetrics); SystemParametersInfo(SPI_GETNONCLIENTMETRICS, sizeof(TNonClientMetrics), @ncm, 0); ncm.iCaptionHeight := 25; SystemParametersInfo(SPI_SETNONCLIENTMETRICS, sizeof(TNonClientMetrics), @ncm, 0);end;{通过消息控... 阅读全文

摘要： {D7 indy9支持}use idStack;with checklistbox1 dobegin clear; items := GStack.LocalAddresses; items.insert(0, '127.0.0.1');end 阅读全文

摘要： 需要在半夜4点钟的时候把一张表的数据完全转移到另一张表中去（这两张表的结果已经设置完毕完全一样） 该怎么进行操作？1、你必须开启代理服务sql server agent2、在企业管理器里，打开“管理—>sqlserver代理—>作业”，新增作业，新建“步骤”，在步骤里填入你要转移的SQL语句到“命令”框里。然后新建“调度”。3、启动作业。OK，自己试一下。 另外，如果你转移的数据量比较大，还可以通过建立SQLSERVER数据复制的包来解决，然后在“步骤”里调用这个包就可以。SQLSERVER的数据复制技术,是多线程的,处理起来比较快。 阅读全文

摘要： var a:array of array of integer;//二维数组就两个array of begin SetLength(a,3,3);//分配内存，下标从0开始 ...... end; 阅读全文

摘要： SQL Server 2000中查询表名经常碰到一些忘记表名称的情况，此时只记得个大概，此时可通过查询系统表Sysobjects找到所要的表名，如要查找包含用户的表名，可通过以下SQL语句实现， Select * From sysobjects Where name like '%user%'如果知道列名，想查找包含有该列的表名，可加上系统表syscolumns来实现，如想查找列名中包含有user的所有表名，可通过以下SQL语句来实现 Select * From sysobjects s Where Exists( Select * From syscolumns Where 阅读全文