Показать сообщение отдельно
  #1  
Старый 04.04.2018, 10:17
nixon232 nixon232 вне форума
Активный
 
Регистрация: 26.01.2014
Сообщения: 282
Версия Delphi: delphi xe4
Репутация: выкл
По умолчанию Закрыть родительскую форму

Форма А (не главная), создает форму В
Код:
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;
GetParentForm(Self).Close; вообще закрывает себя, а не родителя.
Ответить с цитированием