Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 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




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




Наверх





Память: 0.74 MB
Время: 0.03 c
14-32978          Nest                  2002-03-05 15:35  2002.04.11  
Помогите пожалуйста выбрать MP3-CD плеЙер.


1-32842           guood                 2002-03-28 17:46  2002.04.11  
Рабочая директория приложения


4-33022           Nuhim                 2002-02-07 11:36  2002.04.11  
Перехват запуска программ.


6-32911           Delphimun             2002-01-17 17:07  2002.04.11  
Как мне модофицировать файл, который находится на интернет сервере?


7-32997           Zmey                  2002-01-17 06:15  2002.04.11  
помогите с TRichEdit