|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Закрыть родительскую форму
Форма А (не главная), создает форму В
Код:
B:=TBForm.Create(self); B.show; Код:
procedure TBform.DoClick(Sender: TObject); begin // PostMessage(Parent.Handle,WM_Close,0.0); // PostMessage(Parent.Handle,WM_Quit,0.0); // PostMessage(GetParent(Handle),WM_CLOSE,0,0); GetParentForm(Self).Close; end; Последний раз редактировалось nixon232, 04.04.2018 в 10:28. |