![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
|
Как при запуске пограммы сделать так что бы ее форма стала невидимой или скрытой? В событиях OnShow и OnCreate вставлять типа Form1.Hide бесполезно.
|
|
#2
|
||||
|
||||
|
Код:
Apllication.ShowMainForm:=False; Код:
ShowWindow(Handle, SW_HIDE); |
|
#3
|
|||
|
|||
|
Не фурычит
|
|
#4
|
||||
|
||||
|
Код:
Visible:=False; Последний раз редактировалось The Shadow, 12.01.2008 в 13:10. |
|
#5
|
|||
|
|||
|
Неа. Не подходит.
|
|
#6
|
||||
|
||||
|
У меня сделано так:
В проекте Код:
begin Application.ShowMainForm:=False; ... ShowWindow(Application.Handle, SW_HIDE); end; Код:
procedure TForm1.FormCreate(Sender: TObject); begin Visible:=False; ... end; |
|
#7
|
||||
|
||||
|
Есть интересная идея:
Код:
procedure TForm1.Timer1Timer(Sender: TObject); begin Form1.Visible := false; end; Но это примитивно и врядли подойдёт, зато РАБОТАЕТ А когда нужно восстановить форму: Код:
Timer1.Enabled := false; Form1.Visible := true; |
|
#8
|
||||
|
||||
|
Цитата:
Код:
procedure TForm1.FormPaint(Sender: TObject); begin Form1.Hide; end; ![]() P.S. Если ты не планируешь чё-то делать с формой в будущем - то не проще сделать консольное приложение ! Последний раз редактировалось Yurk@, 12.01.2008 в 14:00. |
|
#9
|
||||
|
||||
|
Ещё проще:
Код:
AlphaBlend:=True; AlphaBlendValue:=0; Код:
ShowWindow(Application.Handle,SW_HIDE); |