Главная страница
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.011 c
15-1262485087
Кто б сомневался
2010-01-03 05:18
2010.03.28
RSA шифр


15-1261889617
NewZ
2009-12-27 07:53
2010.03.28
Paradox.


3-1237158348
istok
2009-03-16 02:05
2010.03.28
TdxMemData...


1-1246468776
Игорь
2009-07-01 21:19
2010.03.28
HGDIOBJ под курсором мыши


3-1237429884
DelphiN!
2009-03-19 05:31
2010.03.28
Создание "скрытого" поля в FireBird