Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.11.07;
Скачать: CL | DM;

Вниз

Сделать MainForm невидимым.   Найти похожие ветки 

 
Maxximusss   (2004-10-26 15:55) [0]

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


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

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


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


 
HSolo ©   (2004-10-26 16:03) [2]

TApplication.ShowMainForm ?


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

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


 
Gero ©   (2004-10-26 16:04) [4]


> Maxximusss   (26.10.04 16:03)

Класс!


 
MetalFan ©   (2004-10-26 16:04) [5]


> В Дельфи :)

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


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

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


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

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


 
SlyFox ©   (2004-10-26 16:10) [8]

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

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


 
jack128 ©   (2004-10-26 16:10) [9]

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

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


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

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


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

Application.ShowMainForm := false;


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

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


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

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


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

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


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

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.
вот те готовы пример



Страницы: 1 вся ветка

Текущий архив: 2004.11.07;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.027 c
1-1098556456
_андрей
2004-10-23 22:34
2004.11.07
GetFreeSpaceForDrive


6-1093710572
Фёдор Мегатронов
2004-08-28 20:29
2004.11.07
Как узнать имя файла по указанному урлу ?


14-1098295193
Diablo_m
2004-10-20 21:59
2004.11.07
Визуализация топологии сети


4-1096816084
Teap0t
2004-10-03 19:08
2004.11.07
создаем Сервис под XP


9-1088766735
Sanek_metaller
2004-07-02 15:12
2004.11.07
Дурак