2019年5月28日

鼠标左键长按功能的实现

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

posted @ 2019-05-28 11:27 都市随缘 阅读 (259) 评论 (1) 编辑

同类控件的统一操作(以TCHECKBOX为例)

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

posted @ 2019-05-28 10:59 都市随缘 阅读 (14) 评论 (0) 编辑

HLP帮助文件源文件RTF文件的编写

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

posted @ 2019-05-28 10:58 都市随缘 阅读 (22) 评论 (0) 编辑

FORMAT 的用法

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

posted @ 2019-05-28 10:57 都市随缘 阅读 (37) 评论 (0) 编辑

DELPHI6中DSGNINTF.DCU找不到时的解决方法

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

posted @ 2019-05-28 10:53 都市随缘 阅读 (11) 评论 (0) 编辑

使窗体处于可“移动”,可改变“大小”状态中

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

posted @ 2019-05-28 10:52 都市随缘 阅读 (16) 评论 (0) 编辑

系统菜单的控制,使菜单项灰显及恢复功能

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

posted @ 2019-05-28 10:50 都市随缘 阅读 (17) 评论 (0) 编辑

判断系统是否启动了视觉样式

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

posted @ 2019-05-28 10:49 都市随缘 阅读 (32) 评论 (0) 编辑

获取指定字符的宽度

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

posted @ 2019-05-28 10:44 都市随缘 阅读 (33) 评论 (0) 编辑

利用TCHART做分离饼形图

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

posted @ 2019-05-28 10:43 都市随缘 阅读 (55) 评论 (0) 编辑

导航