Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2010.03.28;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.005 c
2-1264588436
Олег1963
2010-01-27 13:33
2010.03.28
Как работать с TDataTime


15-1263197619
Неважно
2010-01-11 11:13
2010.03.28
Delphi2010


2-1264626549
kalexi
2010-01-28 00:09
2010.03.28
Недопустимый дескриптор окна при закрытии приложения


6-1215346193
Plotnick
2008-07-06 16:09
2010.03.28
Как подключить нескольких клиентов?


15-1263034579
palva
2010-01-09 13:56
2010.03.28
Опять про Аватар





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский