Скачать: CL | DM;

В чём ошибка   Найти похожие ветки 

← →
Yojik   (2006-03-28 14:28) [0]

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

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) [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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.041 c