Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.028 c