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

Как отобразить на taskbarе вторичные формы?   Найти похожие ветки 

← →
Smithson ©   (2002-08-15 12:22) [0]

Есть приложение с N-ным количеством форм. Я хочу все их отобразить на taskbar Windows. Как это сделать?

---

← →
Игорь Шевченко ©   (2002-08-15 12:27) [1]

Поставить им WS_EX_APPWINDOW. А вообще, не стоит пугать пользователя обилием кнопок на таскбаре :-)

---

← →
Smithson ©   (2002-08-15 12:42) [2]

Спасибо.
Пугать не стоит, но в каждом окне результаты запроса, на экране они перекрывают друг друга, писать менеджер окон времени нет, а так ...

---

← →
Skier ©   (2002-08-15 12:46) [3]

>Smithson
А что если все нужные формы занести в TList и активизировать
(передавать фокус) - только какой-то определённой форме,
в которой - результат последнего запроса... ?

---

← →
Smithson ©   (2002-08-15 12:52) [4]

Не вышло. Можно подробнее? В Form2.CreateParams вставил:
Procedure TForm2.CreateParams(var Params: TCreateParams);
Begin
Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
End;

Возникла ошибка создания формы. Что не так?

---

← →
Игорь Шевченко ©   (2002-08-15 12:55) [5]

Не так - пропущен inherited

---

← →
Skier ©   (2002-08-15 12:55) [6]

>Smithson
inherited CreateParams(Params);

---

← →
Игорь Шевченко ©   (2002-08-15 12:55) [7]

Procedure TForm2.CreateParams(var Params: TCreateParams);
Begin
inherited;
Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
End;

---

← →
Smithson ©   (2002-08-15 12:57) [8]

Огромное спасибо!
Пока писал прототип процедуры, помнил по inherited, а как дошло до реализации, забыл... Еще раз спасибо.

---

← →
Игорь Шевченко ©   (2002-08-15 13:04) [9]

Единственный момент: На любой из этих AppWindow форм надо сказать что-либо, подобное

procedure TForm1.FormActivate(Sender: TObject);
begin
ShowWindow(Application.Handle, SW_HIDE);
end;

Чтобы на таскбаре не было окна от Application, иначе трудно будет переключаться между AppWindow-окнами.

---

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

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



Память: 0.46 MB
Время: 0.014 c