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

Код

program TestWind;
uses Windows, Messages;

const
WndMain = 'MainForm';
WndOpt = 'OptForm';
WndMainCap = 'Wind 1';
WndOptCap = 'Wind 2';
BTN1 = 10;
BTN2 = 11;
var
WMain, WOpt: TWndClassEx;
WndM, WndO: HWND;
Button: array[0..1] of HWND;
Msg: TMsg;
// Основное окно
function WndMainProc( Wnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM ): LRESULT; stdcall;
  begin
   case Msg of
// Создаём второе окно
WM_COMMAND:
      case LOWORD(wParam) of
       BTN1:
        begin
        WndO := CreateWindowEx( 0, WndOpt, WndOptCap, WS_SYSMENU or WS_SIZEBOX or WS_CAPTION  ,
                          30, 30, 100, 100, 0, 0, hInstance, nil );
        Button[1] := CreateWindowEx( WS_EX_WINDOWEDGE, 'Button', 'Close', WS_VISIBLE or WS_CHILD,
                              10, 15, 70, 25, WndO, BTN2, hInstance, nil );
        ShowWindow( WndO, SW_SHOWNORMAL );
        end;
      end;
// Скидываем фокус если открыто второе окно
// Легкая блокировка
WM_WINDOWPOSCHANGED:
   begin
      if IsWindowVisible(WndO) then
         SetForegroundWindow(FindWindow(WndOpt, nil))
         else
         SetForegroundWindow(FindWindow(WndMain, nil));
   end;

WM_DESTROY:
      begin
         PostQuitMessage( 0 );
         Exit;
      end;
      else
         Result := DefWindowProc( Wnd, Msg, wParam, lParam );
  end;
end;
// Доп.окно
function WndOptProc( Wnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM ): LRESULT; stdcall;
  begin
   case Msg of
      WM_COMMAND:
      case LOWORD(wParam) of
       BTN2:
        begin
         ShowWindow(WndO, SW_HIDE);
        end;
      end;

      WM_DESTROY:
      begin
     ShowWindow(WndO, SW_HIDE);
      end;
      else
         Result := DefWindowProc( Wnd, Msg, wParam, lParam );
  end;
end;

begin
// Первое
with WMain do
   begin
      cbSize := SizeOf( WMain );
      style := CS_HREDRAW or CS_VREDRAW;
      lpfnWndProc := @WndMainProc;
      cbClsExtra := 0;
      cbWndExtra := 0;
      hInstance := hInstance;
      hIcon := 0;
      hCursor := LoadCursor( 0, IDC_ARROW );
      hbrBackground := COLOR_WINDOW;
      lpszMenuName := nil;
      lpszClassName := WndMain;
   end;
RegisterClassEx( WMain );
WndM := CreateWindowEx( 0, WndMain, WndMainCap, WS_SYSMENU or WS_SIZEBOX or WS_CAPTION or WS_POPUP ,
                          10, 10, 300, 300, 0, 0, hInstance, nil );

Button[0] := CreateWindowEx( WS_EX_WINDOWEDGE, 'Button', 'Form 2', WS_VISIBLE or WS_CHILD,
                              10, 15, 60, 25, WndM, BTN1, hInstance, nil );

ShowWindow( WndM, SW_SHOWNORMAL );
// Второе
with WOpt do
   begin
      cbSize := SizeOf( WOpt );
      style := CS_HREDRAW or CS_VREDRAW;
      lpfnWndProc := @WndOptProc;
      cbClsExtra := 0;
      cbWndExtra := 0;
      hInstance := hInstance;
      hIcon := 0;
      hCursor := LoadCursor( 0, IDC_ARROW );
      hbrBackground := COLOR_WINDOW;
      lpszMenuName := nil;
      lpszClassName := WndOpt;
   end;
RegisterClassEx( WOpt );

while GetMessage( Msg, 0, 0, 0 ) do
  begin
   TranslateMessage( Msg );
   DispatchMessage( Msg );
  end;
end.