Delphi, дочерние формы

[north]

Есть форма(Form2), Form.Style = fsMDIChild. Создается несколько дочерних форм "при помощи Create"(TForm2.Create(Self)). Как сделать, чтобы каждая форма выполнила процедуру какую-нибудь?

[Selestis]

TForm2.OnCreate:=MyProc;+описать MyProc

[north]

Мне нужно, чтобы не при создании выполнялась процедура, а тогда, когда у меня есть несколько уже созданных форм(процедура должна выполнятся для каждой дочерней формы)

[]Wowan[]

на событие OnActivate каждой из форм сделай проверку существует ли другая форма (мы) (проверяй свойство Form1.active если true значит форма уже существует).

[north]

Эмм.. У нескольких форм одинаковое имя, как реализовать эту проверку? Указатель может какой форме каждой присваивается?

[S@fer]

У нескольких форм одинаковое имя, как реализовать эту проверку?

У форм не может быть одинакового имени, или я не прав?
во время создания формы присваиваете ей имя с инексом
(к примеру Form1, Form2,). Потом делаете проверку, допустим если Form5 активна, то выполняется процедура.

[Stilet]

или я не прав?

Частично. Дизайнер не допускает такого, но в коде можно приписать примерно такое:

var       f1,f2:TForm1;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormClick(Sender: TObject);
begin
   f1:=Create(nil); f1.Name:='q';
 f2:=Create(nil); f2.Name:='q';

  show;
  f1.show;
  f2.Show;
end;

Но естесственно это делать не рекомендуется

[north]

У меня есть главная форма (Form1, FormStyle = fsMDIForm), и я создаю неколько дочерних (Form2, FormStyle = fsMDIChild), у всех дочерних будет имя Form2.

[Stilet]

у всех дочерних будет имя Form2.

Это нежелательно. Добавляй к ним уникальный индекс или записывай их в массив типа форма.

[Paskal1]

Я не знаю в тему ли я но я так понял что если к примеру открыто 2-е дочерних формы то выполнить нужно процедуру если да то может вот так-------->

procedure TForm2.FormCreate(Sender: TObject);
begin
if diChildCount = 2 then
твоя поцедура
end;