powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Дочернее окно.
2 сообщений из 2, страница 1 из 1
Дочернее окно.
    #39465431
Dagmanor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Всем зравствуйте.
Есть такой вопрос. В приложении есть дочерняя форма. И для того чтоб она была видна на панели задач в код формы добавил такое:
Код: pascal
1.
2.
3.
4.
5.
6.
7.
procedure TForm2.CreateParams(var Params: TCreateParams);
begin
  inherited;
  Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
  Params.WndParent := 0;

end;


Проблема в том что если с дочерней формы вызывать какое-то модальное окно то на передний план вылазит главная форма приложения... Накидал небольшой пример в гиф.
Дочерняя форма создается и вызывается так:
Код: pascal
1.
2.
3.
4.
5.
6.
var
  f:TForm2;
begin
  f:=TForm2.Create(nil);
  f.Show;
end;



Как можно побороть этот баг?
...
Рейтинг: 0 / 0
Дочернее окно.
    #39465501
Vizit0r
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
вот только что проверил
Форма создается в процессе работы, параметры

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
procedure TSin_Form.CreateParams(var Params : TCreateParams);
begin
  inherited;
  // Add WS_EX_AppWindow to ExStyle, so window will have
  // independent button on taskbar.
  // WndParent for window independent from Main window
  Params.ExStyle := Params.ExStyle or WS_EX_AppWindow;
  Params.WndParent := 0;
end;



все нормально, при вызове шоумодал другого окна - главное окно не показывается

P.S. Комменты не мои, я просто разместил объяву (с)
...
Рейтинг: 0 / 0
2 сообщений из 2, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Дочернее окно.
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]