Форум: "Основная";
Текущий архив: 2004.11.07;
Скачать: [xml.tar.bz2];
ВнизСделать 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;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.032 c