Отображение всех форм на таскбаре [D5, Win2k]
p@s © (2002-10-30 16:52:00)
Что хотелось получить. Чтобы каждая форма была на таскбаре
(как это делает 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:00) [1]
Вопрос закрыт.
Наверх 
ЧАТ |
Орешник |
|
