Скрыть форму

← →
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
в 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.

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

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

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

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