[nixon232]

Форма А (не главная), создает форму В

Код:

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; вообще закрывает себя, а не родителя.

[nixon232]

Решение было очевидно - Присвоить родителя

Код:

B:=TBForm.Create(self);
B.Parent:=Self;
B.show;

[Aristarh Dark]

А нужно было использовать не "родителя", а "владельца". И все бы заработало еще в первом варианте.

Код:

TForm(Owner).Close;

[nixon232]

Сообщение от Aristarh Dark

А нужно было использовать не "родителя", а "владельца". И все бы заработало еще в первом варианте.

Код:

TForm(Owner).Close;

Да, до этого тоже дошел позднее, в немного другой реализации. но не стал писать.

Код:

PostMessage((Owner as TForm).Handle,WM_CLOSE,0,0);