Не возвращается фокус

← →
BeckLee (2006-05-18 14:40) [0]

Есть форма, при нажатии кнопки создаю вторую, не модально. Только есть условие, первая форма так и должна быть активной. Фокус должен передавать второй только когда на нее щелснут мышью.
Делаю GetforegroundWindow(Первая форма), а после отображения второй ЫуеforegroundWindow(Первая форма). Но после этого вторая форма отказывается вообще что-то воспринимать. Поведение аналогично Enabled=False
Подскажите, может все это нужно как-то по другому делать?

← →
Savek (2006-05-18 15:37) [1]

По моему проще не куда
TForm1.Button1Oclick ... begin Form2.Show; //показываем Form1.SetFocus; // возвращаем фокус end;

Или я не понял проблему?

← →
BeckLee (2006-05-18 16:17) [2]

Виноват, не совсем корректно сформулировал вопрос:
Ситуация такая - форма2 - всплывающее окно, и задача состоит в том, чтобы оно показавшись не переключило пользователя с его текущей задачи, а повисело себе и закрылось. Так как делаю я работает, но вспл. окно после потери фокуса почему-то блокируется.

← →
BeckLee (2006-05-18 16:49) [3]

Может кто разбирался с флагами SetWindowPos? Может быть она сможет помочь?

> BeckLee (18.05.06 14:40)

> Есть форма, при нажатии кнопки создаю вторую, не модально.
> Только есть условие, первая форма так и должна быть активной.
> Фокус должен передавать второй только когда на нее щелснут

procedure TFormX.ShowNA; begin ShowWindow(Handle, SW_SHOWNA); Visible := True; end;

Т.е., создается как обычно, а затем ShowNA.

--
Regards, LVT.

Не возвращается фокус Найти похожие ветки