Окно не становиться активным, хотя Caption синий

← →
mRodion © (2003-12-02 15:17) [0]

В своем приложении открываю еще одно окно, после закрытия которого, основное окно остается неактивным (ввод с клавиатуры не работает, событие OnActive не срабатывает).
Как избавиться от этого?

Хочу, чтобы после закрытия окна, главному возвращался фокус.

← →
Clift © (2003-12-02 15:24) [1]

как закрываеш окно?

← →
k-man © (2003-12-02 16:07) [2]

ShowModal делаешь, да?
А потом когда окно отработало видимо form.hide; Верно?
Попробуй лучше сделать form.Close

← →
mRodion © (2003-12-02 16:11) [3]

Открываю окно по .Show.
Но это не простое окно, оно имеет свою кнопку на TaskBar"е.
Закрывает окно пользователь (в OnClose caFree).

← →
k-man © (2003-12-02 16:22) [4]

Давай код подробнее...
А то окно то "не простое" :)

← →
mRodion © (2003-12-02 16:30) [5]

Есть MDI-приложение.
Главная форма (контейнер) и много дочерних. Все стандартно.
Из дочерней формы вызывается другая форма:
var fe :TFmEditing; begin fe := TfmEditing.Create (self); fe.Show; end;

В форме TFmEditing переопределн метод CreateParams:
procedure CreateParams(var Params: TCreateParams); override; procedure TfmEditing.CreateParams(var Params: TCreateParams); begin inherited CreateParams(Params); if ParentWindow=0 then Params.WndParent := GetDesktopWindow; end;

а также задан обработчик события OnClose
procedure TfmEditing.FormClose(Sender: TObject; var Action: TCloseAction);
begin
edProtocolNumberExit (self);
AskSavePicture;
if (FCloseOnExit = true) then Action := caFree
else Action := caHide;
end;

FCloseOnExit в данном случае всегда true.
(только не спрашивайте, зачем я так условие написал)

В форме TfmEditing убрал оверрайды CreateParams.
Теперь окно не имеет свою кнопку на TaskBar"е. Но эффект остался.
Есть какие-нибудь предложения?

Решил проблему.
В обработчик OnClose закрывающейся формы TfmEditing
Прописал строчку:
endMessage (Application.MainForm.Handle,WM_SETFOCUS, 0, 0);
И все ОК

Окно не становиться активным, хотя Caption синий Найти похожие ветки