MDI формы

[SlavaSH]

Всем привет!
Создаю MDI-приложение...
У меня в меню есть три пункта, которые открывают 3 различные MDI-формы.
Мне надо сделать, чтобы при выбора пункта меню проверялось создана ли эта форма уже, и если нет, то создать, а если создана, то активировать ее.

Я делаю это так:
if MDI_Form1 = nil then
Application.CreateForm(TMDI_Form1, MDI_Form1)
else
ShowWindow(MDI_Form1.Handle, SW_RESTORE);

Если форма не создана, то все ок - она создается)
если она минимизирована, то тоже все ок - она восстанавливается
но если она не минимизирована, а просто активна другая форма, то она не просто становится активной, а делается маленькой, как будто я нажал на кнопку восстановить.
И меня это жутко бесит!!!
Как сделать правильно???


И еще такая проблема:
При создании MDI-формы я не хочу видеть анимацию (она как будто сначала сворачивается, потом разворачивается), бесит это. Как сделать, чтобы она открывалась нормально, как это сделано в ворде?

[ch_vas]

У меня еще и дополнение к этому вопросу (хотя смотрю что многоуважаемый Гурру на наши вопросы не чень то и отвечает)
Возможно ли сделать так что бы если одна MDI форма открыта и развернута во весь экран - то другая - которая открывается - была открыта в размере указанном при design и не сворачивала предыдущую.. (может коряво описал но принцип такой.
Когда открываю одну MDI-форму и разворачиваю навесь экран .. потом другую - но хочу видеть ту которая под ней то и первая уменьшается до размеров design

[ch_vas]

Для Slava_SH

procedure Tmain.AuditForms(Sender: TObject); // Процедура проверки форм
Var i: integer; // счетчик открытых форм
  flag : boolean; // просто флаг для открытия или не открытия формы
Begin
  flag := true;
// ShowMessage((Sender as TMenuItem).Name); 
// Перебираем все открытые формы 
 For i:=0 to Screen.FormCount-1 do
  Begin
   // проверяю каким пунктом меню открывается форма
  If (Sender as TMenuItem).Name = 'mstreet' then
    // проверяю имя открытой формы
    if Screen.Forms[i].Name = 'street' then
      begin
         // если есть открыта - то показываю её
        Screen.Forms[i].Show;
        flag := false;
      end
  End;
if flag then
  // если не открыта то открываю
 Street := TStreet.Create(Self)

End;

может можно как-то по другому .. просто не думал - это так что по быстрому в голову пришло
хотя ..буду думать и оптимизировать т.к.самому такое надо

[alexuss88]

функция поиска формы mdi по имени

// поиск mdi форм
function TfrMain.findForm(nameform:string):boolean;
var i:integer;
begin
    for i:= 0 to MdiChildCount - 1 do
    if MDIChildren[i].Name = nameform then  result:= true;
end;

и соответсвенно проверка и создание

// создание формs user
procedure TfrMain.CreateFormUserForm;
begin
   // проверка существования Формы
   if findForm('FormUser')=false then
   FormUser:=TFormUser.Create(Application);    // создание Формы
end;