Форум: "Основная";
Текущий архив: 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;
endelse
//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.006 c