Скачать: CL | DM;

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

← →
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;
...



---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.032 c