Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Форма и ее кнопка на панели задач, В чем ошибка? 
:(
    Опции темы
MacTep
Дата 28.7.2008, 14:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1292
Регистрация: 4.8.2003
Где: г. Самара

Репутация: 4
Всего: 4
Для того, чтобы показываемая форма была у меня на панели задач делаю вот такую вестчь.
Код

  ...
  private
    procedure CreateParams(var Params: TCreateParams); override;
  ...

  ...
procedure TfrmAbonements.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  with Params do
    ExStyle := ExStyle or WS_EX_APPWINDOW;
end;
  ...

Но происходит следующее. Форма отображается на экране по frm.Show, затем между главной формой и той, которая только что отображена, можно переключаться по щелчку мыши на формах на экране. Но если щелкать по кнопкам на панели задач, то переключения не происходит. Измучился уже весь... Все время активна вторая форма, а переключаться на главную никак не получается. Что мне делать? В чем ошибка?


--------------------
(A)bort, (R)etry, (I)gnore = Haфиг, Heфиг, Пoфиг ... :)
PM MAIL   Вверх
VICTAR
Дата 28.7.2008, 15:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 37
Всего: 80
Попробуй
Код

inherited CreateParams(Params);
  with Params do
  begin
    ExStyle := ExStyle or WS_EX_APPWINDOW;
    WndParent := GetDesktopWindow;
  end;
PM MAIL   Вверх
MacTep
Дата 28.7.2008, 15:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1292
Регистрация: 4.8.2003
Где: г. Самара

Репутация: 4
Всего: 4
Ооооо, точно... Блин... Спасибо большое! smile


--------------------
(A)bort, (R)etry, (I)gnore = Haфиг, Heфиг, Пoфиг ... :)
PM MAIL   Вверх
VICTAR
Дата 28.7.2008, 15:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 37
Всего: 80
Не за что  smile 
PM MAIL   Вверх
Akella
Дата 29.7.2008, 11:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329
Тогда при сворачивании главной формы остальные не сворачиваются. Т.е. у тебя открыто десяток форм, ну пусть даже не 10, а 5. Чтобы свернуть всё приложение, нужно закрыть все 5 окон. А если без 
Код

WndParent := GetDesktopWindow;

то при сворачивании главной формы сворачиваются/восстанавливаются все дочерние.

Добавлено через 59 секунд
тогда уж лучше смотреть в сторону MDI приложений.
PM MAIL   Вверх
pseud
Дата 29.7.2008, 11:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Экспёрт Тыдыщ
***


Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 10
Всего: 40
Цитата(Akella @  29.7.2008,  11:16 Найти цитируемый пост)
Тогда при сворачивании главной формы остальные не сворачиваются. Т.е. у тебя открыто десяток форм, ну пусть даже не 10, а 5. Чтобы свернуть всё приложение, нужно закрыть все 5 окон.

прекрасно.
outlook именно так и работает.
и я так тож люблю последнее время делать.
mdi - не люблю.


--------------------
Испытание чужого терпения можно считать успешным, если оно лопнуло...
PM MAIL   Вверх
MacTep
Дата 30.7.2008, 06:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1292
Регистрация: 4.8.2003
Где: г. Самара

Репутация: 4
Всего: 4
Цитата(Akella @  29.7.2008,  11:16 Найти цитируемый пост)
Тогда при сворачивании главной формы остальные не сворачиваются. Т.е. у тебя открыто десяток форм, ну пусть даже не 10, а 5. Чтобы свернуть всё приложение, нужно закрыть все 5 окон.
Нормально - это намного лучше, чем по кнопке не переходить на нужное окошко. Так что такая работа меня устраивает. Да и ненормальности, в принципе, не вижу. ;)



--------------------
(A)bort, (R)etry, (I)gnore = Haфиг, Heфиг, Пoфиг ... :)
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0489 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.