![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
|
Пишу прогу которая будет сидеть в трее, соответственно Form1(Она же MainForm) мне нужно скрыть как только загрузится программа...ну тоесть ее видно не должно быть вобще . В Object Inspector ставлю параметр Visible = False...
пробовал даже в коде прописывать Form1onCreate...(точно не помню как там) Form1.visible := false; \Form1.hide; ничего не помогает...всеравно висит на экране... ![]() |
|
#2
|
||||
|
||||
|
Напиши
ShowWindow(Form1.Handle, SW_HIDE); {скрывает форму} ShowWindow(Application.Handle, SW_HIDE); {скрывает приложение с панели задач} |
|
#3
|
||||
|
||||
|
Чтобы восстановить замени SW_HIDE на SW_RESTORE
|
|
#4
|
|||
|
|||
|
Спасибо, все что вы написали - работает,... но только не при FormCreate
...мож Delphi переустановить? Код:
procedure TForm1.FormCreate(Sender: TObject); begin ShowWindow(Form1.Handle, SW_HIDE); ![]() |
|
#5
|
||||
|
||||
|
ShowWindow(Form1.Handle, SW_HIDE); не будет работать при создании формы. Читайте хэлп.
Это можно попробовать сделать в событии OnShow, должно корректно работать. |
|
#6
|
|||
|
|||
не помогло.... уже и делфи переустановил....всеравно.... |
|
#7
|
|||
|
|||
|
1. Устанавливаем Raize Components;
2. Кидаем на форму TRzTrayIcon с вкладки Raize Widgets; 3. Наслаждаемся кликами по кнопке "свернуть". Если хотите, чтобы прога сворачивалась и по кнопке "закрыть", пишем в событии FormClose главного окна приложения: Код:
RzTrayIcon1.MinimizeApp; Action := caNone; |
|
#8
|
||||
|
||||
|
Вот рабочий вариант:
Код:
program Project1;
uses
Forms,Windows,
Unit1 in 'Unit1.pas' {Form1};
{$R *.res}
begin
Application.Initialize;
Form1:=TForm1.Create(nil);
Application.Run;
while true do begin
sleep(1000);
Application.ProcessMessages;
end;
end. |
|
#9
|
|||
|
|||
|
Вот ещё стандартный вариант.
Код:
program Project1;
uses
Forms,
Unit1 in 'Unit1.pas' {Form1};
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.ShowMainForm:= false;
Application.Run;
end. |
|
#10
|
||||
|
||||
|
Блин такая же проблема! При запуске форма не скрывается..
Може кто знает как все настройки в Deldhi 2007 вернут к изначальным? Раньше всё было хокей, а потом я чё-то накасячил и всё болты. Как настройки венуть??????????????? |
|
#11
|
||||
|
||||
|
Как сменить настройки, вопрос хороший, смотря что накручено.
У меня была такая проблема форма не скрывалась не на Create не на Activate, и я если не ошибаюсь делал по таймеру, Enabled := true: и на минимальном интервале, скрывать форму, может не очень грамотно но работает, на тот момент я лучше не придумал, а потом больше не сталкивался с этим. |
|
#12
|
||||
|
||||
|
Ещё мысль пришла.
AlphaBlend:= true: AlphaBlendValue := 0: В свойствах формы |
|
#13
|
||||
|
||||
|
Цитата:
![]() |
|
#14
|
||||
|
||||
|
AlexSku прав.
Не надо извращаться, Код:
Application.ShowMainForm:= false; прекрасно работает. |
|
#15
|
||||
|
||||
|
Ты хотел сказать не AlexSku, а я прав? Ты ошибся, это я сказал, что то что сказал AlexSku это извращение.
|