Delphi粗边框
最近在考虑MIS系统界面的整体框架,决定使用MDI Form 模块中的MDI Child,但是MDI form的工作区总有讨厌的粗边。
昨天下午从网上查到C 版本的解决方法,就花了点时间翻译成delphi的,呵呵,供大家参考。
在MDI Form中写入如下代码:
interface
TFmMain = class(TForm)
...
procedure FormCreate(Sender: TObject);
...
private
...
procedure CreateDefWndProc();
PROCEDURE ClientWndProc(VAR Message: TMessage);
end;
软件开发网 www.mscto.comimplementation
...
软件开发网 www.mscto.comprocedure 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
WS_CLIPSIBLINGS or MDIS_ALLCHILDSTYLES, 0, 0, ClientWidth,
ClientHeight, Handle, 0, HInstance, @ccs);
FClientInstance := pointer(GetWindowLong(hWnd1,GWL_WNDPROC));
DestroyWindow(hWnd1);
end; 软件开发网 www.mscto.com
procedure TFmMain.ClientWndProc(var Message: TMessage);
//VAR
// MyDC : hDC;
begin
if (Message.Msg = WM_ERASEBKGND) then
begin
//这儿模拟VCL的源程序用主窗口的背景色填充客户区,
//你也可以在客户区画一个图形。
FillRect(HDC(Message.WParam), ClientRect,Brush.Handle);
// MyDC := TWMEraseBkGnd(Message).DC;
//BitBlt(MyDC, (ClientWidth - imBack.Picture.Width)div 2,
// (ClientHeight - imBack.Picture.Height) div 2,
// imBack.Picture.Width, imBack.Picture.Height,
// imBack.Picture.Bitmap.Canvas.Handle, 0, 0, SRCCOPY);
Message.Result := 1;
end
else
Message.Result := CallWindowProc(FClientInstance, ClientHandle,
Message.Msg, Message.WParam, Message.LParam);
end;
procedure TFmMain.FormCreate(Sender: TObject);
begin
//*******去除MDIchild粗边框**********
CreateDefWndProc();
SetWindowLong(ClientHandle, GWL_WNDPROC,
LongInt(MakeObjectInstance(ClientWndProc)));
SetWindowLong(ClientHandle,GWL_EXSTYLE,GetWindowLong(
ClientHandle,GWL_EXSTYLE) and (not WS_EX_CLIENTEDGE));
SetWindowPos(ClientHandle,0,0,0,0,0,SWP_FRAMECHANGED
or SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE or SWP_NOZORDER);
//***********************************
end;[@more@]he
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/93029/viewspace-1018199/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/93029/viewspace-1018199/
- 点赞
- 收藏
- 分享
- 文章举报
- 由Delphi程序改写Sql(2000)的存储过程
- Delphi发email
- 用Delphi 向量算法 判断点是否在线上
- Delphi 删除控件问题
- 继续Delphi调用Wcf
- Delphi 调用WCF 搞定啦
- Quick Report 说明 for delphi 7
- DELPHI7下用superobject读取中国天气网的JSON数据的天气预报
- 刚学 Delphi 请多指教
- delphi学习总结
- Delphi中的记录
- Delphi中的Free和Nil之理解
- delphi简单字符的加密与解密
- Delphi控件开发基础篇
- 关于DELPHI XE4 开发 IOS APP问题
- Delphi 封装(2)类的封装
- delphi中如何让主窗体在程序运行之初不显示
- 使用Delphi内置函数读写INI文件[转]
- delphi实现FTP上传与下载
- 关于Delphi中预编译指令的使用方法