摘要： 1、添加[Additional]页下的[TApplicationEvents]控件 2、申请全局的Integer变量，用来计算延时，如：YsNum: Integer; 3、在ApplicationEvents1的OnMessage事件中，对捕获的WM_LBUTTONDOWN消息进行处理 proced 阅读全文

摘要： https://www.cnblogs.com/gaodu2003/archive/2008/12/15/1355355.html Procedure UnCheck; var i: integer; begin for i := 0 to GroupBox1.ControlCount-1 do b 阅读全文

摘要： https://www.cnblogs.com/gaodu2003/archive/2008/12/17/1356861.html 举例说明如下： 每一节的标题在RTF文件中一般以特有的脚注($)指定，该项为非必选项，可省略。对每一节还须指定其跳转名(#)，跳转名不能是汉字，以便标识。对每一节还可指 阅读全文

摘要： https://www.cnblogs.com/gaodu2003/archive/2008/12/22/1359927.html Format 格式指令具有以下的形式："%" [index ":"] ["-"] [width] ["." prec] type它是以"%"开始，而以type结束。 t 阅读全文

摘要： https://www.cnblogs.com/gaodu2003/archive/2009/06/04/1495789.html 1、添加 lib\designide.dcp到控件的dpk文件的requires部分2、在控件的pas源文件中凡是uses dsgnintf的地方改成 uses des 阅读全文

摘要： https://www.cnblogs.com/gaodu2003/archive/2009/06/07/1497886.html 在菜单中加入两个按钮，实现系统菜单中的“大小”及“移动”功能。 SendMessage(Form1.Handle, WM_SYSCOMMAND, SC_SIZE, 0) 阅读全文

摘要： https://www.cnblogs.com/gaodu2003/archive/2009/06/07/1498004.html Const MyMove = 1000; //自定义消息(全局) M := GetSystemMenu(Application.Handle, false); //获取 阅读全文

摘要： https://www.cnblogs.com/gaodu2003/archive/2009/06/07/1498113.html Function IsAppThemed: Boolean; external 'uxtheme.dll';Function FreeLibrary: Integer; 阅读全文

摘要： https://www.cnblogs.com/gaodu2003/archive/2009/06/12/1502242.html 方法一：var CharX, CharY: Integer;with Canvas do begin Font.Name := '宋体'; Size := 9; Cha 阅读全文

摘要： https://www.cnblogs.com/gaodu2003/archive/2009/06/18/1505720.html unit Unit1; interface ……type TForm1 = class(TForm) Chart1: TChart; Series1: TPieSeri 阅读全文