![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как отобразить на taskbarе вторичные формы? [D5, D6]
Smithson © (2002-08-15 12:22:00)Есть приложение с N-ным количеством форм. Я хочу все их отобразить на taskbar Windows. Как это сделать?
Игорь Шевченко (2002-08-15 13:04:00) [1]Единственный момент: На любой из этих AppWindow форм надо сказать что-либо, подобное
procedure TForm1.FormActivate(Sender: TObject);
begin
ShowWindow(Application.Handle, SW_HIDE);
end;
Чтобы на таскбаре не было окна от Application, иначе трудно будет переключаться между AppWindow-окнами.
Smithson (2002-08-15 12:57:00) [2]Огромное спасибо!
Пока писал прототип процедуры, помнил по inherited, а как дошло до реализации, забыл... Еще раз спасибо.
Игорь Шевченко (2002-08-15 12:55:00) [3]Не так - пропущен inherited
Skier (2002-08-15 12:55:00) [4]>Smithson
inherited CreateParams(Params);
Игорь Шевченко (2002-08-15 12:55:00) [5]Procedure TForm2.CreateParams(var Params: TCreateParams);
Begin
inherited;
Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
End;
Smithson (2002-08-15 12:52:00) [6]Не вышло. Можно подробнее? В Form2.CreateParams вставил:
Procedure TForm2.CreateParams(var Params: TCreateParams);
Begin
Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
End;
Возникла ошибка создания формы. Что не так?
Skier (2002-08-15 12:46:00) [7]>Smithson
А что если все нужные формы занести в TList и активизировать
(передавать фокус) - только какой-то определённой форме,
в которой - результат последнего запроса... ?
Smithson (2002-08-15 12:42:00) [8]Спасибо.
Пугать не стоит, но в каждом окне результаты запроса, на экране они перекрывают друг друга, писать менеджер окон времени нет, а так ...
Игорь Шевченко (2002-08-15 12:27:00) [9]Поставить им WS_EX_APPWINDOW. А вообще, не стоит пугать пользователя обилием кнопок на таскбаре :-)