都市随缘

Delphi 心得、体会

导航

2011年5月5日 #

屏蔽组合键[Ctrl+N]

摘要: ……const _KeyPressMask=$80000000;implementation……procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);begin if ((Msg.lParam and _KeyPressMask)=0) and (GetKeyState(vk_control)<0) and (Msg.wParam = Ord('N')) then begin Handled := True; end;end;…… 阅读全文

posted @ 2011-05-05 09:05 UfoID 阅读(405) 评论(0) 推荐(0) 编辑

2009年8月10日 #

用外部按钮打开DateTimePicker下拉日期选择窗口

摘要: 方法一:SendMessage(DateTimePicker1.Handle, WM_LBUTTONDOWN, MK_LBUTTON, 7);后面的"7",是DateTimePicker1右侧按钮位置[注: 此时DateTimePicker1的宽度为12],也可以将上面的值改为DateTimePicker1.Width-5,即SendMessage(DateTimePicker1.Handle, ... 阅读全文

posted @ 2009-08-10 18:41 UfoID 阅读(2861) 评论(0) 推荐(0) 编辑

2009年6月18日 #

利用TChart做分离饼形图

摘要: unit Unit1;interface……type TForm1 = class(TForm) Chart1: TChart; Series1: TPieSeries;……var Form1: TForm1; ps: TPieSeries;implementation{$R *.dfm}procedure TForm1.FormCreate(Sen... 阅读全文

posted @ 2009-06-18 12:21 UfoID 阅读(467) 评论(0) 推荐(0) 编辑

2009年6月12日 #

获取指定字符的宽度

摘要: 方法一:var CharX, CharY: Integer;with Canvas do begin Font.Name := '宋体'; Size := 9; CharX := TextExtent('字符串').cx; //字符串宽度,单位为像素 CharY := TextExtent('字符串').cy; //字符高度,单位为像素end;方法二:var s: TSize;with Canva... 阅读全文

posted @ 2009-06-12 17:00 UfoID 阅读(742) 评论(0) 推荐(0) 编辑

2009年6月7日 #

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

摘要: Function IsAppThemed: Boolean; external 'uxtheme.dll';Function FreeLibrary: Integer; external 'kernel32.dll';Function SupportThemeSystem: Boolean;var lngLibHandle: THandle;begin Result := false; lngLi... 阅读全文

posted @ 2009-06-07 15:47 UfoID 阅读(181) 评论(0) 推荐(0) 编辑

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

摘要: Const MyMove = 1000; //自定义消息(全局)M := GetSystemMenu(Application.Handle, false); //获取系统菜单,M定义属性为HMENUDeleteMenu(M, 0, MF_BYPOSITION); //删除系统菜单中的第一菜单项InsertMenu(M, 0, MF_ByPosition+MF_String, 1000, '还原(... 阅读全文

posted @ 2009-06-07 11:31 UfoID 阅读(370) 评论(0) 推荐(0) 编辑

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

摘要: 在菜单中加入两个按钮,实现系统菜单中的“大小”及“移动”功能。SendMessage(Form1.Handle, WM_SYSCOMMAND, SC_SIZE, 0);//使窗体处于可改变大小状态SendMessage(Form1.Handle, WM_SYSCOMMAND, SC_MOVE, 0);//使窗体处于可移动位置状态 阅读全文

posted @ 2009-06-07 00:17 UfoID 阅读(194) 评论(0) 推荐(0) 编辑

2009年6月4日 #

Delphi6中dsgnintf.dcu找不到时的解决方法

摘要: 1、添加 lib\designide.dcp到控件的dpk文件的requires部分2、在控件的pas源文件中凡是uses dsgnintf的地方改成 uses designintf, designeditors 3、加入搜索路径 X:\Program Files\Borland\Delphi6\Source\ToolsAPI [X为Delphi6所在盘符]4、将文件"DesignEditors... 阅读全文

posted @ 2009-06-04 00:04 UfoID 阅读(2383) 评论(0) 推荐(0) 编辑

2008年12月22日 #

Format 的用法

摘要: Format 格式指令具有以下的形式: "%" [index ":"] ["-"] [width] ["." prec] type 它是以"%"开始,而以type结束。 type表示一个具体的类型,中间是用来格式化type类型的指令字符,是可选的。 type 常用替换类型: 1. d 整型;2. e 科学表示法(对应整型数和浮点数);3. s 对应字符串类型 格式化type的指令含义: ... 阅读全文

posted @ 2008-12-22 16:14 UfoID 阅读(170) 评论(0) 推荐(0) 编辑

2008年12月17日 #

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

摘要: 举例说明如下: 每一节的标题在RTF文件中一般以特有的脚注($)指定,该项为非必选项,可省略。对每一节还须指定其跳转名(#),跳转名不能是汉字,以便标识。对每一节还可指定其搜索关键字(K),该项为非必选项,关键字可以是一个或多个,汉字和英文均可,各关键字之间用半角逗号(即;)进行分隔。对每一节还可设定顺序号(+),该项为非必选项。 具体操作步骤为: ... 阅读全文

posted @ 2008-12-17 15:15 UfoID 阅读(775) 评论(0) 推荐(0) 编辑