Win32程序设计(Delphi)- 多文档界面

最新推荐文章于 2019-05-02 17:31:25 发布

Mr.乌鸦

最新推荐文章于 2019-05-02 17:31:25 发布

阅读量503

点赞数

分类专栏： Delphi 文章标签： Delphi Pascal

本文链接：https://blog.csdn.net/weixin_44300440/article/details/86811377

版权

本文档介绍了如何使用Delphi进行Win32程序设计，特别是聚焦于实现多文档界面（MDI）的应用。通过参考《Delphi Win32核心API参考》一书，深入探讨了Pascal语言在创建和管理MDI应用程序中的应用。

摘要由CSDN通过智能技术生成

最近学习Win32程序设计,Delphi实现.

参考书:<<Delphi Win32核心API参考>>

program MDIApp;

uses
  Windows,
  Messages;

var
  iMSG: TMsg;
  FrameWnd, ClientWnd, ChildWnd: HWND;

const
  IDChildWnd = 100;      //第一个MID窗口ID
 //回调函数
function FrameWndProc(fHWND: HWND; imessage, wParam, lParam: LongInt): LongInt; stdcall;
var
//在建立MDI窗口用到
  ClientStruct: TClientCreateStruct;
begin
  case imessage of
    WM_CREATE:
      begin
        ClientStruct.hWindowMenu := 0;
        ClientStruct.idFirstChild := IDChildWnd;
         //建立MDI客户窗口
        Clientwnd := CreateWindowEx(0, 'MDIClient', nil, WS_CHILD or WS_CLIPSIBLINGS or
                                  WS_VISIBLE, 0, 0, 0, 0, fHWND, 0, HInstance, @ClientStruct);
        if ClientWnd = 0 then
        begin
          MessageBox(0, '创建MDI客