Как открыть дочернюю MDI форму из другой дочерней

[Sullla]

Есть главная форма и 2 ее дочерние формы, напр., "Клиенты" и "Новый клиент"
При выбору пункта меню n1 - открываем форму "Клиенты" из которой уже нужно открыть форму "Новый клиент".

[Stilet]

А что именно не получается?
Насколько я помню все MDIChild формы не могут быть скрыты в принципе

[Sullla]

форму "Новый клиент" нужно открывать с разных дочерних форм, а не с материнской формы и в то же время "Новый клиент" - это дочерняя одной и той же материнской что и "Клиенты"

[Stilet]

Ну так открывай. Что мешает? Метод Show еще не отменяли.

[Sullla]

1. Создать "Новый клиент" с материнской (CreateChildForm), скрыть и показать когда нужно... не работает
2. Просто создать с "Клиенты" - как ???

[Stilet]

М.м.м я так с потолка:
Вот главная форма - в ней создается дитятко:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N11: TMenuItem;
    procedure N11Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
 uses unit2;
procedure TForm1.N11Click(Sender: TObject);
var f:tform2;
begin
  f:=TForm2.Create(self);
  with f do begin
   Parent:=self;
   show;
  end;
end;

end.

Ессно что вторая форма выставлена в MDIChild

Из проекта нуна это дитятко убрать

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  //Application.CreateForm(TForm2, Form2);
  Application.Run;
end.

Единственное что я не помню как правильно освобождать форму из нее самой, имеется ввиду при закрытии этого дитяти. Ато MDIChild при закрытии сворачивается

[Sullla]

Создать child из материнской я могу, но как его скрыть и показать когда нужно, причем при вызове из другой дочки???

[Sullla]

Проблему решил заменив создание дочок методом, описаным в большинстве учебников

procedure TfrMain.CreateChildForm
(const childName : string);
var Child: TfrChild;
begin
Child := TfrChild.Create(Application);
Child.Caption := childName;
end;

на банально простое

frChild:=TfrChild.Create(self);
frChild.Show;

и по аналогии во всех дочерних формах

[HyperZen]

Сообщение от Stilet

Единственное что я не помню как правильно освобождать форму из нее самой, имеется ввиду при закрытии этого дитяти. Ато MDIChild при закрытии сворачивается

По умолчанию для дочерних окон параметр Action имеет значение caMinimize и вместо закрытия - форма сворачивается. Для того чтобы окно закрывалось надо создать обработчик события OnClose:

procedure TfmChild.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   Action := caFree;
end;

[Stilet]

HyperZen

Тогда создание формы в моем примере не правильное.