最近在考虑mis系统界面的整体框架,决定使用mdi form+模块中的mdi child,但是mdi form的工作区总有讨厌的粗边.
在mdi form中写入如下代码: 【程序编程相关:DesignPattern之Simple】
昨天下午从网上查到c++版本的解决方法,就花了点时间翻译成delphi的,呵呵,供大家参考. 【推荐阅读:Delphi中用ICMP探测远程主机是否】
tfmmain = class(tform) 【扩展信息:分布式数据库中的关键问题 delphi 】
interface
...
procedure formcreate(sender: tobject);...
private
...
procedure createdefwndproc(); procedure clientwndproc(var message: tmessage);end;
implementation
...
procedure tfmmain.createdefwndproc;
var hwnd1 : hwnd; ccs : tclientcreatestruct; begin ccs.hwindowmenu := 0; ccs.idfirstchild := $ff00; hwnd1 := createwindowex(ws_ex_clientedge, mdiclient, , ws_child or ws_visible or ws_group or ws_tabstop or ws_clipchildren or ws_hscroll or ws_vscroll or ... 下一页