В чём ошибка

← →
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;

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