Сворачивание приложения

[dacorp]

День добрый!
Есть 2 формы: Form1 и Form2
Form2 вызывается через:

Form2.Showmodal;

На Form2 есть Button, которая должна свернуть приложение:

Application.Minimize;

Сворачивает... Только разворачивает со второго клика... Подскажите, пожалуйста, как это исправить?

[dacorp]

Загрузил Д7... Всё работает... А можно как-нить в CodeGear 2009 сделать чтоб работало?

Эх... Придётся всё на Д7 переделывать...

[Stilet]

А можно как-нить в CodeGear 2009 сделать чтоб работало?

Конечно можно. Посмотри код и поправь что не так.

[dacorp]

))) Знать бы ещё где смотреть и с чем такой глюк связан )))

[SalasAndriy]

У меня тоже была похожая проблема... Юзаю Delphi 2010.
Когда ставлю так:

BorderStyle := bsNone;

То потом когда сворачиваю приложение вот так:

Application.Minimize;

При клике на панель задач оно его разворачивает, но ВРОДЕ второй клик должен опять же свернуть... этого не происходит... Также пропадает системное меню программы... При таком стиле формы, когда кликаю правой кнопкой мыши на кнопке приложения на паНели задач, должно появитЬся меню с пунктами "Закрыть", "Свернуть", "Восстановить" и т.д. Но меню нету вообще... Неудобно...

[dacorp]

Перевёл проект на Delphi7 и проблема ушла.

[JTG]

Ну вообще это корректное поведение, голый bsNone = WS_POPUP Просто в D2007 и выше кнопка на панели задач относится к главной форме, а не к TApplication.

Проверь свойство BorderIcons



Ещё можно установить переменную Application.MainFormOnTaskbar := False и получить поведение как в D7 (но там вроде есть какие-то нюансы при работе с семёрочной панелью задач - "The major reason for this change was to better support several new features available on Windows Vista’s Aero Theme")

[SalasAndriy]

Хоть и не я автор темы, но спасибо, JTG, за совет) Не знал этого... Помогли)

+1

[dacorp]

О! Спасибо большое! Буду знать!!!