MDI-приложение

[Евгений1]

Здравствуйте!
У меня при написании MDI-приложения возникла одна проблема, которую не удаётся решить. В общих словах: Есть главная форма и шесть дочерних форм, на главной форме размещены шесть кнопок, которые открывают соответствующие формы при их нажатии. Так вот, мне необходимо, чтобы одна и таже форма не открывалась 2,3,4 и т.д. раз, т.е. открывалась только один раз. Я пытался реализовать это вот так:

procedure TMainForm.Form1ButtonClick(Sender: TObject);
var
  AForm:TForm1;
begin
  if Not Assigned(Form1)
  then AForm:=TForm1.Create(Application)
  else Form1.BringToFront;
end;

но результат тот же, что и без Assigned написано, форма открывается неограниченное количество раз.

[Alexei91]

if Not Assigned(Form1)
then AForm:=TForm1.Create(Application)
else Form1.BringToFront;

Попробуйте вместо Form1.BringToFront написать
ShowWindow(Form1.Handle, SW_HIDE).

[Евгений1]

Нет, не помогло, форма также открывается неограниченное количество раз.

[Alexei91]

Тогда как-то через

if ActiveMDIChild is TForm1 then ...

[Евгений1]

Спасибо, получилось! Только теперь при повторном нажатии на кнопку, выскакивает ощибка "нарушение прав доступа", не подскажете, что надо сделать чтобы она не выскакивала?

[DIgorevich]

Просто запрети кнопку. тут же:

if ActiveMDIChild is TForm1 then ...

[Баламут]

Я бы все-таки иначе сделал.

var
  i: integer;
begin
  for i := 0 to Form1.MDIChildCount - 1 do
  begin
    if Form1.MDIChildren[i] is TForm2 then
    begin
      Form1.MDIChildren[i].WindowState := wsNormal;
      Exit;
    end;
  end;
  Form2 := TForm2.Create(Owner);
end;

[Евгений1]

Задача была решена следующим образом:

procedure TMainForm.Button1Click(Sender: TObject);
begin
  Button1.Enabled:=False;
  Button2.Enabled:=True;
  if Not Assigned(Form1)then
  Form1:=TForm1.Create(Application)
  else
  Form1.BringToFront
end;

procedure TMainForm.Button2Click(Sender: TObject);
begin
  Button1.Enabled:=True;
  Button2.Enabled:=False;
  if Not Assigned(Form2)then
  Form2:=TForm2.Create(Application)
  else
  Form2.BringToFront
end;

в Unit1 и Unit2 соответственно после Action:=caFree; проставлены
 Form1:=nil; и  Form2:=nil; и т.д для остальных форм.