摘要：
procedure openchildform(formclass: tformclass; var fm; aowner:tcomponent);var i: integer; child: tform;begin for i := 0 to screen.formcount - 1 do if screen.forms[i].classtype = formclass then begin ......
摘要：
在mdi窗体类型的编程中，主窗体（fsmdiform）怎样调用子窗体（fsmdichild，此子窗体为dll）。以下是我的原代码：==========================================================================================dpr 单元代码
program mdiform;
uses forms, umdi......
Delphi下用WindowsAPI创建窗体
delphi 下用windows api 创建窗体 【程序编程相关:
clientdataset不能在线程中使】
// delphi 下调用windows api 创建窗体. // 【推荐阅读:
取得Windows版本号
】 【扩展信息:
四舍五入的BUG
】// 模板-------by hottey 2004-4-13-0:18 //// 作者网站:http://asp.itdrp.com/hottey // program delphi; uses windows, messages; const hellostr=hello world!; {$r delphi.res} //窗口消息处理函数. function mywinproc(hwnd:thandle;umsg:uint;wparam,lparam:cardinal):cardinal;exp ort;stdcall; var hdca,hdcb:thandle; //设备描述表句柄. rect:trect; //矩形结构. font:hfont; ps:tpaintstruct; //绘图结构. begin result:=0; case umsg of wm_paint: begin hdca:=beginpaint(hwnd,ps); setbkmode(hdca, transparent); setbkcolor(hdca,getbkcolor(hdca)); ...
下一页 摘要：
1 前言
2 插件框架（untdllmanager）
2.2 实现代码
unit untdllmanager;
interface
uses
windows, classes, sysutils, forms;
type
edllerror = class(exception);
tdllclass = class of tdll;......
