Диалоговое окно

[Михаил Юрьевич]

Как сделать что бы диалоговое окно типа Application.MessageBox ,
было на переднем плане,что бы не перекрывалось другими окнами

[BaronTreep]

Если вы создаете его с помощью:

H := MessageBox(Handle, 'йцу', 'кен', MB_OK);

То оно перенимает свойства предка, т.е. если родитель обладал свойством fsStayOnTop, то и окошко это тоже.

Ещё, обычно MessageBox блокирует основное окно, чтобы этого не было нужно сделать его родителем рабочий стол -

MessageBox(HWND(0), 'йцу', 'кен', MB_OK);

Теперь оно ещё и в панели задач отображается

Аналогичный Вопрос

А как такому окошку отправить сообщение? Что-то оно не поддается ни SendMeSSage, FindWindow, SetWindowPos?

[Kotofff]

Можно написать свой диалог и переместить его на передний план с помощью SetWindowPos, например ...

[BaronTreep]

А как это сделать?

А как это сделать? Полностью создавать/регистрировать в системе под ВинАпи, или можно проще?

[Stilet]

А как такому окошку отправить сообщение?

Какое именно?

т.е. если родитель обладал свойством fsStayOnTop, то и окошко это тоже.

Я бы так не сказал. Просто оно выводится поверх указанного хендла.

было на переднем плане,что бы не перекрывалось другими окнами

MessageBox(GetForegroundWindow,...);

[Kotofff]

К примеру в событии OnShow твоего диалога пишешь :

procedure TOKBottomDlg.FormShow(Sender: TObject);
begin
with OKBottomDlg do SetWindowPos(Handle, HWND_TOPMOST,Left,Top,Width,Height,SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
end;

HWND_TOPMOST - перенести окно на передний план (поверх остальных), HWND_NOTOPMOST - соответственно наоборот...

[BaronTreep]

Ну например можно его найти FindWindow и отправить SendMeSSage. У меня почему-то не получилось..

[Михаил Юрьевич]

Дело в том,что главное окно скрывается при запуске приложения командой:
Application.Showmainform:=false
и когда вызывается диалоговое окно,то оно перекрывается другими окнами

[BaronTreep]

Ну чего, код Stilet'a прекрасно сработает:

Application.Showmainform:=false;
MessageBox(GetForegroundWindow, 'q', 'q', MB_OK);

[SERG1980]

MessageBox(0,'q','q',MB_ICONQUESTION+MB_YESNO+MB_SYSTEMMODAL)
MessageBox(0,'q','q',MB_ICONQUESTION+MB_YESNO+MB_SETFOREGROUND)