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

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

Hide Window [D5, WinXP]

LEKSYS ©   (2002-08-27 15:27:00) 

Господа, как блин совсем скрыть основное окно программы?
ShowWindow(MainForm.Handle, SW_HIDE);

пытался вот так - не скрывается :-(

---

ultrasuper_asd   (2002-08-28 23:53:00) [1]

ShowWindow(MainForm.Handle, SW_HIDE);
ShowWindow(Aplpication.Handle, SW_HIDE);
правда в икспи не про... ан нет. там тоже работает, вспомнил...
без проблем

---

dr.karter   (2002-08-28 20:33:00) [2]

Итак, запускай Delphi или если он у тебя уже запущен, то создавай новый проект («File» – «New Application»).
Для начала выбери пункт меню «Options» из меню «Project».
Здесь ты должен перенести «From1» из раздела «Auto-Create forms» (список слева) в «Available forms» (список справа)Только что мы отключили From1 из списка авто инициализируемых форм. Теперь инициализацию придётся произвести вручную.
Выбери Project >> View Source
И теперь просто перепиши как у меня точь в точь

program xxx
uses
Forms,
Windows.
Unit1 in "Unit1.pas" {Form1};

{$R *.RES}

var
WhEvent:THandle;
begin
Application.Initialize;
ShowWindow(Application.Handle,SW_Hide);
Form1:=TForm1.Create(nil);
Application.Run;

WhEvent:=CreateEvent(nil, true,false, "et");
while (true) do
begin
WaitForSingleObject(WhEvent,1000);
Application.ProcessMessages;
end;
end.

---

Ученик   (2002-08-27 16:12:00) [3]

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.ShowMainForm := False
end;

---

Наверх