![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как вернуть программу в панель задач?
gedevan © (2015-11-07 13:46:00)Каким то неизвестным мне макаром случилось так, что загружаясь моя программа не отображается в панели задач, хотя еще недавно так не было, и я ничего для этого не пытался даже сделать. Запустил старый исходник, он отображается. Различий между ними я не обнаружил. Что за ерунда?
begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.CreateForm(TForm2, Form2);
Application.Run;
end.
procedure TForm2.FormCreate(Sender: TObject);
var
ErrorMessage: String;
begin
N := TNetwork.Create;
if not ПроверкаНаПравоЗапускаПрограммы then
begin
Application.Terminate;
exit;
end;
Application.CreateForm(TMainFrame, MainFrame);//вот эта форма //должна стать главной и появится в панели задач, но она //появляется, а в панели задач ее не видно?!!??
Application.CreateForm(TMessageForm, MessageForm);
Destroy;
end;
Palladin (2015-11-13 16:59:00) [1]фантастика епт
gedevan (2015-11-07 13:55:00) [2]лол нашел.
в начало конструктора формы TMainFrame вставил
inherited Create(nil);и после этого форма перестала появлятся) убрал появилась.