Форум программистов [Powered by Invision Power Board]

Код


program api3;

uses
  Windows, Messages;

var
 window: TWndClassEx;
 Mwindow: HWND;
 Mmsg: TMsg;
 ClientCreateStruct: TClientCreateStruct;  
 
// Процедура обработки сообщений
function WindowProc(wnd: HWND; msg: integer;  wparam: WPARAM; lparam: LPARAM):LRESULT;STDCALL;
begin
 case msg of
    WM_CLOSE:
     begin
       MessageBox(0, 'Попытка закрыть дочернее окно', 'Сообщение', MB_OK); //DestroyWindow(wnd);
     end;
    WM_DESTROY:
     begin
        PostQuitMessage(0);
        Result:=0;
        Exit;
     end;
     else
        Result:=DefWindowProc(wnd,msg,wparam,lparam);
 end;
end; 
 
function MDIChild(AParent: HWND; AInst: HMODULE): HWND; stdcall;
begin
 window.cbSize     :=sizeof (window);
 window.style      :=CS_HREDRAW or CS_VREDRAW;
 window.lpfnWndProc:=@WindowProc;
 window.cbClsExtra :=0;
 window.cbWndExtra :=0;
 window.hInstance  :=HInstance;
 window.hIcon      :=LoadIcon (0,IDI_APPLICATION);
 window.hCursor    :=LoadCursor (0,IDC_ARROW);
 window.hbrBackground:=COLOR_BTNFACE + 1; //цвет окна
 window.lpszMenuName :=nil;
 window.lpszClassName:='Child_Window';
 RegisterClassEx (window);
 
  Result:= CreateWindowEx(WS_EX_APPWINDOW, 'Child_Window', 'Дочернее окно', 
            WS_SYSMENU or WS_CAPTION or WS_CHILD or WS_CLIPCHILDREN or WS_VISIBLE, 
            50, 50, 
            300, 300, 
            AParent, 0, AInst, nil); 
        
end;    

    
begin
 // Создание основного окна
 Mwindow:=CreateWindowEx(0,'MDICLIENT','Родительское окно',
 WS_OVERLAPPEDWINDOW or WS_VISIBLE,
 CW_USEDEFAULT,SW_SHOWMAXIMIZED,800,600,0,0,1,@ClientCreateStruct);

 //Создание дочернего окна 
 MDIChild(Mwindow, HInstance); 
 
 // Цикл обработки сообщений
 while GetMessage(Mmsg,0,0,0) do
  begin
      TranslateMessage(Mmsg);
      DispatchMessage(Mmsg);
  end;
end.

Код


    WM_DESTROY:
     begin
//        PostQuitMessage(0);

Цитата(Frees @ 28.4.2011, 12:53)

а почему все на голом API?
боязнь VCL, или ... .

Добавлено @ 12:54
если религия позволить использовать VCL то File - New - Other - MDI Application и увидите пример MDI приложения.

Цитата(Javaca @ 28.4.2011, 17:47

)

Теперь после закомментирования висит процесс.

Цитата(Frees @ 28.4.2011, 14:57

)

может тут ответ найдешь

Код


program api4;

uses
  Windows, Messages;

var
 winc: TWndClass;
 hClientWindow: HWND;
 Mmsg: TMsg;

function FrameProc(wnd: HWND; msg: integer;  wparam: WPARAM; lparam: LPARAM):LRESULT;STDCALL;
var
  ccs: TClientCreateStruct;
begin
 case msg of
    WM_DESTROY:
      begin
        PostQuitMessage(0);
        Result:=0;
        Exit;
      end;
    WM_CREATE:
      begin
        ccs.hWindowMenu := 0;
        ccs.idFirstChild := 0;
        
        hClientWindow := CreateWindow('MDICLIENT', nil, WS_CHILD or WS_CLIPCHILDREN or
          WS_VISIBLE, 0, 0, 0, 0, wnd, $CAC, HInstance, @ccs);
        
        // Создание дочернего окна        
        CreateMDIWindow('MDICHILD' , 'Дочернее окно' , 0,
             (GetSystemMetrics(SM_CXSCREEN) - 400) div 2, (GetSystemMetrics(SM_CYSCREEN) - 200) div 2 ,
             400 , 200 ,
             hClientWindow , HInstance , 0
             );    
             
      end;    
 end;
 Result:=DefFrameProc(wnd , hClientWindow , msg , wparam , lparam);
end; 

    
begin
    winc.style            :=CS_HREDRAW or CS_VREDRAW;
    winc.lpfnWndProc    :=@FrameProc;
    winc.cbClsExtra     :=0;
    winc.cbWndExtra     :=0;
    winc.hInstance      :=HInstance;
    winc.hIcon          :=LoadIcon (0,IDI_APPLICATION);
    winc.hCursor        :=LoadCursor (0,IDC_ARROW);
    winc.hbrBackground  :=COLOR_APPWORKSPACE+1; //цвет основного окна
    winc.lpszMenuName   :=nil;
    winc.lpszClassName    := 'FRAMEWINDOW';
      if RegisterClass(winc) = 0 then Exit;

    winc.lpfnWndProc    := @DefMDIChildProc;
    winc.hbrBackground  :=COLOR_BTNFACE + 1; //цвет дочернего окна
    winc.lpszClassName    := 'MDICHILD';
      if RegisterClass(winc) = 0 then Exit;

    // Создание основного окна
    CreateWindow('FRAMEWINDOW' , 'Основное окно' ,
            WS_OVERLAPPEDWINDOW or WS_VISIBLE ,
            CW_USEDEFAULT , SW_SHOWMAXIMIZED ,
            800 , 600 ,
            0 , 0 , hInstance , nil); 
 

 // Цикл обработки сообщений
 while GetMessage(Mmsg,0,0,0) do
  begin
      TranslateMessage(Mmsg);
      DispatchMessage(Mmsg);
  end;
end.