Форум: "Основная";
Текущий архив: 2002.04.11;
Скачать: [xml.tar.bz2];

Вниз

Скрыть форму   Найти похожие ветки 

← →
anod   (2002-03-30 14:13) [0]

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

---

← →
Song   (2002-03-30 14:19) [1]

А куда Вы вставляете Application.ShowMainForm:=false?

---

← →
Anatoly Podgoretsky   (2002-03-30 14:21) [2]

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

---

← →
anod   (2002-03-30 14:22) [3]

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

---

← →
Song   (2002-03-30 14:25) [4]

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

---

← →
Anatoly Podgoretsky   (2002-03-30 14:26) [5]

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

---

← →
Anatoly Podgoretsky   (2002-03-30 14:27) [6]

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

---

← →
anod   (2002-03-30 14:30) [7]

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

---

← →
anod   (2002-03-30 14:34) [8]

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

---

← →
Song   (2002-03-30 14:35) [9]

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

---

← →
anod   (2002-03-30 14:36) [10]

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

---

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

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

---

← →
Song   (2002-03-30 14:41) [12]

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

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.


---

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

Не работает.

Да, ещё у меня такая проблема. Сделал код, чтоб при нажатии на клавишу на клаве форма либо скрывалась, либо показывалась.
Тоже не работает. Мерцает и опять видимая.
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.

---

← →
Adder   (2002-03-31 00:40) [14]

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

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:45) [15]

!!!!

---

← →
Anatoly Podgoretsky   (2002-03-31 11:43) [16]

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

---

← →
anod   (2002-03-31 13:01) [17]

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 13:09) [18]

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

---

← →
anod   (2002-03-31 13:12) [19]

Чем этот код отличается от того, что привел 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.

---

← →
Rooman   (2002-03-31 13:18) [20]

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

---

← →
anod   (2002-03-31 13:20) [21]

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

---

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

Форум: "Основная";
Текущий архив: 2002.04.11;
Скачать: [xml.tar.bz2];

Наверх

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