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

Отображение всех форм на таскбаре   Найти похожие ветки 

← →
p@s ©   (2002-10-30 16:52) [0]

Что хотелось получить. Чтобы каждая форма была на таскбаре (как это делает 2000 ворд).
Имеем три формы MainForm, ChildForm и ChildChildForm. ChildForm вызывается из MainForm, ChildChildForm из ChildForm. На таскбаре должны быть только MainForm, ChildForm. Про ChildChildForm я в общем случае ничего не знаю, то есть ее может создавать кто угодно например компоненты на форме ChildForm.
Что я сделал.
Перекрыл CreateParams у MainForm, ChildForm.
procedure MainForm.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
Params.WndParent := 0;
end;
procedure ChildForm.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
Params.WndParent := 0;
end;
Обнаружился первый косяк. На таскбаре кроме этих двух форм появилась еще и окно приложения (Application). Что я сделал. Убрал у главой формы CreateParams. На таскбаре все в порядке, но при попытке показать форму из ChildForm на передний план выходит MainForm, а ChildForm уходит на задний, что не правильно. В принципе так и должно быть так как при создании ChildChildForm в WndParent у нее указан хандл Application, а перекрыть CreateParams для ChildChildForm я не могу, так как реализация ChildChildForm не мной написана.
Вот такая ситуация. Если кто решил эту проблему посоветуйте чего-нибудь.

---

← →
p@s ©   (2002-10-31 08:15) [1]

Вопрос закрыт.

---

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

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



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