开发学院软件开发Delphi 在delphi中,如何把MDI工作区的粗边框去掉 阅读

在delphi中,如何把MDI工作区的粗边框去掉

 2006-02-04 14:02:05 来源:WEB开发网   
核心提示: 最近在考虑MIS系统界面的整体框架,决定使用MDI Form+模块中的MDI Child,在delphi中,如何把MDI工作区的粗边框去掉,但是MDI form的工作区总有讨厌的粗边,昨天下午从网上查到C++版本的解决方法,供大家参考,在MDI Form中写入如下代码:interfaceTFmMain = class
 

最近在考虑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;

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
     WS_CLIPSIBLINGS or MDIS_ALLCHILDSTYLES, 0, 0, ClientWidth,
     ClientHeight, Handle, 0, HInstance, @ccs);
   FClientInstance := pointer(GetWindowLong(hWnd1,GWL_WNDPROC));
   DestroyWindow(hWnd1);
end;

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;

Tags:delphi 如何 MDI

编辑录入:爽爽 [复制链接] [打 印]
[]
  • 好
  • 好的评价 如果觉得好,就请您
      0%(0)
  • 差
  • 差的评价 如果觉得差,就请您
      0%(0)
赞助商链接