都市随缘

摘要： ……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;…… 阅读全文

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

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

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

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

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

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

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

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

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