摘要：其实把属性编辑器等引用designeditors的部分，如属性编辑器的声明、实现以及属性编辑器的注册另写一个单元就行了。
下面是一个简单的例子
unit nwdicttreeviewreg;
interface
uses
windows, messages, sysutils, classes, graphics, controls, forms, dialogs,
comc......
摘要：将以下代码保存为multinst.pas, 然后在任何project的
main form中uses multinst, 就可以完善防止程序的多个
实例同时运行, 特与大家共享.
unit multinst;
interface
const
mi_querywindowhandle = 1;
mi_respondwindowhandle = 2;
mi_error_none......
反查漢字拼音var
ihandlecount: integer; 【程序编程相关:
Delphi组件indy 10中IdTC】 【推荐阅读:
希望我不要下定决心放弃borland与d】
plist: array[1..nhkl_list] of hkl; 【扩展信息:
Delphi中预编译指令如何使用
】
szimename: array[0..254] of char;
i: integer;
sfound: string;
begin
lstcomposition.items.clear;
ihandlecount := getkeyboardlayoutlist(nhkl_list, plist);
for i := 1 to ihandlecount do
begin
if immescape(plist[i], 0, ime_esc_ime_name, @szimename) > 0 then
begin
sfound := querycompstr(plist[i], edtexam.text);
if sfound <> then
lstcomposition.items.add(strpas(szimename) + : + sfound);
end;
end;
************** ...
下一页 摘要：利用下面的两个函数移动windows的“开始”按钮。
uses
windows;
var
tbhwnd : hwnd;
sbhwnd : hwnd;
{ 移动“开始”按钮到你的表单上}
procedure tform1.button1click(sender: tobject);
begin
tbhwnd := findwindow(shell_traywnd, nil);
sbh......
