Консультация № 55426
14.09.2006, 13:23
0.00 руб.
0 7 3
Доброго времени суток.Необходимо чтобы при запуске приложения его окно было свернуто в трей. Для этого в FormActivate выполняю функции (см.приложение) (WindowState=wsNormal - чтобы небыло кнопки в панели задач). Но при запуске видно как окно прорисовывается (очень короткое время, но...). Подскажите пожалуста как избежать данного прорисовывания.

Приложение:
ShowWindow(Application.Handle,SW_HIDE);ShowWindow(FR.Handle,SW_HIDE);

Обсуждение

Неизвестный
14.09.2006, 13:47
общий
это ответ
Здравствуйте, VNos!
Попробуйте создавать его минимизированным или посылать сообщение раньше. Впрочем, обрабатвыает его окно все равно только после создания... Попробуйте в OnShow отменить рисование формы.
Кстати, можно создавать форму невидимой (Visible = False), свертывать и только потом делать видимой.
Неизвестный
14.09.2006, 13:48
общий
это ответ
Здравствуйте, VNos!

В файле проекта допишите:
Application.Initialize;
Application.ShowMainForm := False;
...
Неизвестный
14.09.2006, 13:53
общий
это ответ
Здравствуйте, VNos!
Project -> View Source
Перед Application.CreateForm() всавь Application.ShowMainForm := false;
Неизвестный
14.09.2006, 17:41
общий
Спасибо всем за участие.Application.ShowMainForm := false; - почти подходит, но при определенных условиях в ходе программы необходимо показать окно, подскажите как это сделать.
Неизвестный
14.09.2006, 22:22
общий
Form1.ShowА что, соображение не работает совсем?
Неизвестный
15.09.2006, 01:33
общий
Я так понимаю, что мое решение вам показалось не совсем подходящим. А можно узнать чем? Неудобно или просто тем фактом, что существуют более простые решения?
Неизвестный
15.09.2006, 10:15
общий
To Zлоумышленник: Не работает :-(To Сухомлин Кирилл Владимирович:1.Создавать окно минимизированным неподходит, т.к. при этом на панели задач создается кнопка (а она не нужна)2.Посылать сообщение раньше неподходит, т.к. раньше чем в начале FormActivate некуда ("Впрочем, обрабатвыает его окно все равно только после создания... ")3. Пробы с Visible ничего не дали (может я что то протупил)4. "Попробуйте в OnShow отменить рисование формы" - непонравилось, т.к. действительно есть более простые решения.5. Все равно благодарю за помощь
Форма ответа