Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Сделать MainForm невидимым. [D6, Win2k]


Maxximusss ©   (2004-10-26 15:55:00) 

Мне необходимо исполнить программу без отображения MainForm. В программе используются визуальные компоненты, поэтому Console не катит.
Однако при выполнении MainForm.Hide ничего не происходит. Подскажите, в чем проблема.


Андерсон   (2004-10-26 16:32:00) [1]

program Project1;
uses  Forms, * Windows,  Unit1 in 'Unit1.pas' {Form1};
{$R *.RES}
* var ExtendedStyle : integer;
begin  
Application.Initialize;
* ExtendedStyle:=GetWindowLong(application.Handle, GWL_EXSTYLE);
* SetWindowLong(Application.Handle, GWL_EXSTYLE,    ExtendedStyle or WS_EX_TOOLWINDOW {AND NOT WS_EX_APPWINDOW});
Application.CreateForm(TForm1, Form1);  
Application.Run;
end.
вот те готовы пример


Maxximusss   (2004-10-26 16:22:00) [2]

Все, заработало.
Большое спасибо всем участвовавшим :)


Maxximusss   (2004-10-26 16:19:00) [3]

Visible:=false не работает.
А убить ее не проблема :)


Андерсон   (2004-10-26 16:17:00) [4]

Тогда попробуй в инспекторе объектов сделать в пункте
Visible = False


Плохиш   (2004-10-26 16:14:00) [5]

Application.ShowMainForm := false;


SlyFox   (2004-10-26 16:10:00) [6]

MainForm.Visible:=false; может?

Главное не забыть "убить" прогу потом. Ну, например:
Application.Terminate;


jack128   (2004-10-26 16:10:00) [7]

Maxximusss   (26.10.04 16:05) [6]
а OnCreate ничего и не должно работать.
Maxximusss   (26.10.04 16:05) [6]
после Application.Run
после Run твоя программа уже почти закончила работу..

А правельный оттвет те уже дали..


Maxximusss   (2004-10-26 16:10:00) [8]

Андерсон,
не работает это... Это равносильно MainForm.Hide.


Андерсон   (2004-10-26 16:09:00) [9]

попробуй так...
MainForm.Visible := False;


Maxximusss   (2004-10-26 16:05:00) [10]

Блин, понял вопрос.
Я пробовал это написать в TMAinForm.Create
потом в Project Source
после Application.Run


Gero   (2004-10-26 16:04:00) [11]


> Maxximusss   (26.10.04 16:03)

Класс!


MetalFan   (2004-10-26 16:04:00) [12]


> В Дельфи :)

А Я то думал в коммандной строке!


HSolo   (2004-10-26 16:03:00) [13]

TApplication.ShowMainForm ?


Maxximusss   (2004-10-26 16:03:00) [14]

В смысле где? В Дельфи :)


jack128   (2004-10-26 16:00:00) [15]

Maxximusss   (26.10.04 15:55)
Однако при выполнении MainForm.Hide ничего не происходит. Подскажите, в чем проблема.


а где ты это пишешь???


Наверх

Титульная страница Поиск, карта сайта Написать письмо