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

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

Скрыть форму [D6, Win2k]

Страницы:   < 1 2 >

anod ©   (2002-03-30 14:13:00) 

как скрыть главную форму при загрузке.
Application.ShowMainForm:=false или Form1.hide; не помогают.

---

anod   (2002-03-31 13:20:00) [1]

Не может ли быть это из-за того, что какойто компонент при запуске активный (на нем фокус), например, Memo

---

Rooman   (2002-03-31 13:18:00) [2]

ищи в другом месте проги...

---

anod   (2002-03-31 13:12:00) [3]

Чем этот код отличается от того, что привел Song ©
program Project1;

uses
Forms,
Unit1 in "Unit1.pas" {Notef},
Unit2 in "Unit2.pas" {OptForm};

{$R *.res}

begin
Application.Initialize;
Application.CreateForm(TNotef, Notef);
Application.ShowMainForm:=false;
Application.Run;
end.

---

Anatoly Podgoretsky   (2002-03-31 13:09:00) [4]

Ну тебе же Song © (30.03.02 14:41) привел полный код, как это делается, к нему нечего добавить.

---

anod   (2002-03-31 13:01:00) [5]

Anatoly Podgoretsky
в onCreate, пробовал убирать не помогает.
//
if reg.ReadInteger("visible")=1 then
begin
Notef.Show;
flag:=true;
end
else
begin
Notef.Hide;
flag:=false;
end;
//
в OnShow:
ShowWindow(Application.Handle,SW_HIDE);
и ещё в
procedure TNoteF.AppIdle(Sender: TObject; var Done: Boolean);
Больше не трогаю Show и Hide.

---

Anatoly Podgoretsky   (2002-03-31 11:43:00) [6]

anod © (31.03.02 00:20)
Значит ты где то далее в коде делаешь форму видимой.

---

anod   (2002-03-31 00:45:00) [7]

!!!!

---

Adder   (2002-03-31 00:40:00) [8]

>Мерцает и опять видимая.
Правильно делает :)))

if flag then
begin
NoteF.Hide;
flag:=false;
end else // if flag=false thenвот из-за этого и мигает
begin
NoteF.Show;
flag:=True;
end;

---

anod   (2002-03-31 00:20:00) [9]

Не работает.

Да, ещё у меня такая проблема. Сделал код, чтоб при нажатии на клавишу на клаве форма либо скрывалась, либо показывалась.
Тоже не работает. Мерцает и опять видимая.
procedure TNoteF.AppIdle(Sender: TObject; var Done: Boolean);
begin
if GetAsyncKeyState(VK_SNAPSHOT) <> 0 then
begin
if flag then
begin
NoteF.Hide;
flag:=false;
end;
if flag=false then
begin
NoteF.Show;
flag:=True;
end;
end;
Done := True;
end;
end.

---

Song   (2002-03-30 14:41:00) [10]

Может, глюкнуло чего, у меня всё получается:

program Project1;

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

{$R *.res}

begin
With Application Do
Begin
Initialize;
CreateForm(TForm1, Form1);
ShowMainForm:=False;
Run;
End;
end.


---

Anatoly Podgoretsky   (2002-03-30 14:39:00) [11]

anod © (30.03.02 14:34)
При том, что он уже несколько раз просит привести код, что бы тебе помочь, а ты строишь из этого секрет.

---

anod   (2002-03-30 14:36:00) [12]

Application.Initialize;
Application.CreateForm(TNotef, Notef);
Application.ShowMainForm:=false;
Application.Run;
не работает :(

---

Song   (2002-03-30 14:35:00) [13]

Да различаю визуально dpr от Unit :))
Поставьте перед Run после CreateForm

---

anod   (2002-03-30 14:34:00) [14]

2Anatoly Podgoretsky
Я понял, что человек думает может я в Unite ваставил.
Причем тут не книжайся не выпрашивай код

---

anod   (2002-03-30 14:30:00) [15]

Ставил до CreateForm, перед Run , после

---

Anatoly Podgoretsky   (2002-03-30 14:27:00) [16]

Я к то му, не книжайся не выпрашивай код :-)

---

Anatoly Podgoretsky   (2002-03-30 14:26:00) [17]

Song © (30.03.02 14:25)
Ну наверно это большой секрет, ему виднее.

---

Song   (2002-03-30 14:25:00) [18]

Куда именно в dpr"e?

---

anod   (2002-03-30 14:22:00) [19]

в dpr.
Дело в том, что на другом проекте всё ок, а здесь не хочет.

---

Anatoly Podgoretsky   (2002-03-30 14:21:00) [20]

Должно помочь, наверно, что то делаешь неправильно.

---

Страницы:   < 1 2 >

Наверх