| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

В чём ошибка

Yojik ©   (2006-03-28 14:28:00) 

Окно перестают принимать сообщения от мыши, чего не так?

procedure TFrmLoading.MakeModal;
var
 WindowList: Pointer;
begin
 WindowList := DisableTaskWindows(0);
 try
   Show;
   try
     SendMessage(Handle, CM_ACTIVATE, 0, 0);
     ModalResult := 0;
     repeat
       Application.HandleMessage;

     until ModalResult <> 0;
     SendMessage(Handle, CM_DEACTIVATE, 0, 0);
   finally
     Hide;
   end;
 finally
   EnableTaskWindows(WindowList);
//    SetActiveWindow(frmMain);
 end;
end;

Окно немодальное, я его делаю модальным.

---

Yojik   (2006-03-28 15:00:00) [1]

ВСЁ СПАСИБО ТИПА ЗНАТОКАМ

procedure TFrmLoading.MakeModal;
var
 WindowList: Pointer;
begin
 WindowList := DisableTaskWindows(0);
 try
   Show;
   try
     EnableWindow(Handle, true);
     ModalResult := 0;

     repeat
       Application.HandleMessage;
     until ModalResult <> 0;

   finally
     Close;
   end;
 finally
   EnableTaskWindows(WindowList);
 end;
end;

---

Наверх