Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.03.28;
Скачать: CL | DM;

Вниз

Отображение элементов   Найти похожие ветки 

 
webpauk ©   (2010-01-25 16:55) [0]

скрываю главную форму и вывожу значок в трей
procedure TFormTasksMain.FormCreate(Sender: TObject);
begin
 Application.ShowMainForm:=False;
 CreateTrayIcon(Handle);
end;


удаляю значок из трея и восстанавливаю форму.
procedure TFormTasksMain.N2Click(Sender: TObject);
begin
 DeleteTrayIcon(Handle);

 Application.ShowMainForm:=True;
 ShowWindow(Application.Handle, SW_RESTORE);
 ShowWindow(Application.MainForm.Handle, SW_RESTORE);
end;


столкнулся с проблемой: после восстановления формы на ней не отображаются компоненты.


 
webpauk ©   (2010-01-25 17:00) [1]

причем такая фигня случается только если скрытие mainForm прописано в OnCreate.
Если в другой процедуре или событии - всё ок?!


 
Сергей М. ©   (2010-01-25 17:06) [2]

Нафига создавать видимую главную форму, чтобы не успев ее показать тут же делать ее невидимой ?


 
webpauk ©   (2010-01-25 17:09) [3]

собственно, хочу чтобы при инициализации - форма была видна только в виде значка в трее.


 
webpauk ©   (2010-01-25 17:13) [4]

и вообще - вопрос теоретический!
а именно: почему не отображаются компоненты, расположенный на MainForm, если таковая во время инициализации срывается?


 
Сергей М. ©   (2010-01-25 17:15) [5]

В dpr:

Application.ShowMainForm := false;
Application.CreateForm(TMyMainForm, MyMainForm);

А в конструкторе запуздыривай иконку


 
webpauk ©   (2010-01-25 17:16) [6]

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.ShowMainForm:=False;
Timer1.Enabled:=False;
Timer2.Enabled:=True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 ShowWindow(Application.Handle, SW_HIDE);
 ShowWindow(Application.MainForm.Handle, SW_HIDE);
 TTimer(Sender).Enabled:=False;
 Timer2.Enabled:=True;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
 ShowWindow(Application.Handle, SW_RESTORE);
 ShowWindow(Application.MainForm.Handle, SW_RESTORE);
 TTimer(Sender).Enabled:=False;
 Timer1.Enabled:=True;
end;


то же, в упрощенном варианте


 
webpauk ©   (2010-01-25 17:18) [7]


> Сергей М. ©   (25.01.10 17:15) [5]
>

да хоть в dpr, хоть в OnCreate, хоть в Inizialization...
результат один - компоненты  не отображаются!


 
Сергей М. ©   (2010-01-25 20:12) [8]

ну если даже с учетом

> Если в другой процедуре или событии - всё ок

у тебя

> результат один

то разбегись как следует и..

Шопена только не забудь заказать.



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

Текущий архив: 2010.03.28;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.01 c
15-1262727024
Юрий
2010-01-06 00:30
2010.03.28
С днем рождения ! 6 января 2010 среда


15-1263112641
Nic
2010-01-10 11:37
2010.03.28
Соединение из Delphi MSSQL Server через RDP. Как?


2-1264423127
helluvaname
2010-01-25 15:38
2010.03.28
как проверить есть ли string среди combobox.items


15-1262726623
tmtlib
2010-01-06 00:23
2010.03.28
Компилятор в EXE на Delphi с исходниками.


2-1264675704
Starraider
2010-01-28 13:48
2010.03.28
Выравнивание колонок StringGrid