И снова про дочерние формы с кнопкой на панели задач

← →
strong (2005-05-30 15:54) [0]

И снова про дочение окна с кнопкой в панели задач. Создаю их при помощи сл. кода:

procedure TSameForm.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
with Params do
begin
ExStyle := ExStyle or WS_EX_APPWINDOW;
WndParent := HWND_DESKTOP;
end;
end;

Все хорошо, пока не задумаешь показать из этого окна любой диалог, например, OpenDialog. При этом активной становится почему-то снова главная форма приложения.
В принципе жить не мешает, но выглядит как-то неэстетично.
Может кто знает лекарство от такого поведения?

← →
Ученик (2005-05-30 23:19) [1]

>strong (30.05.05 15:54)

Причина, похоже в этом

{ dialogs.pas } function TOpenDialog.DoExecute(Func: Pointer): Bool; ... hWndOwner := Application.Handle; ...

И снова про дочерние формы с кнопкой на панели задач Найти похожие ветки