![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Вначале первая(главная) форма скрыта, а 2-я показана. При закрытии 2-й нужно свернуть приложение и сделать видимой первую форму. (Чтобы при нажатии на кнопку приложения в панели задач показалась первая форма)
Делал по-разному, например так: Project1: Код:
Application.CreateForm(TForm1, Form1); Application.ShowMainForm:=False; Application.CreateForm(TForm2, Form2); Form2.Show(); Unit2: Код:
procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction); begin Application.Minimize; Application.ShowMainForm:=True; form1.Visible:=true; end; Всё хорошо, но Form1 после этого не сворачивается, при попытке свернуть окно стандартным способом (кнопка в правом верхнем углу окна). Почему? и как сделать чтоб всё работало? |