Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.08.26;
Скачать: 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 вся ветка

Текущий архив: 2002.08.26;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.022 c
14-85181
Dmk
2002-07-27 19:20
2002.08.26
Delphi 6 - Руководство разработчика


3-84923
billybons
2002-08-07 10:43
2002.08.26
как программно изменить св-во Grid-a dgRowSelect (синтаксис)


7-85270
Alessio
2002-06-15 21:01
2002.08.26
Delay


1-85039
UniqueNick
2002-08-13 15:33
2002.08.26
Фильтрация данных в KADaoTable


14-85214
Thor
2002-07-29 15:45
2002.08.26
DirectX для Delphi