![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Две формы [D7, 2003]
who5 © (2008-07-04 22:53:00)Есть две формы, одна главная, вторая дополнительная. Когда приложение загружено, то показывается только одна главная форма.
Главная форма сворачивается в трей — прячется:
Application.Minimize;
ShowWindow(Application.Handle, SW_HIDE);
ИконкаВТрее();
При клике в трее, программа должна показать вначале только дополнительную форму (главную не показывать). При клике в трее:
Form2 := TForm2.Create(Self);
with Form2 do
try
ShowModal;
...
finally
Free;
end;
При таком коде, появляется дополнительное окно, но оно появляется без фокуса. Нет фокуса на нем, т.е. оно где-то под всеми окнами появляется, на него не переводится фокус. (Я уже по всякому испробовал и BringToFront и прочее, но не смог найти рабочего варианта)
Что исправить?
Владимир (2008-07-05 10:12:00) [1]Скажи второму окну вот так:
Form2.Visible := False;
А когда оно понадобится, покажи его!
Loginov Dmitry (2008-07-04 23:00:00) [2]Попробуй SetForegroundWindow()