Создание форм из процедуры

[DIMASIKXXX32]

Здравствуйте!

Подскажите пожалуйста как можно написать процедуру такого типа.
У меня имеется 3 кнопки каждая из которых открывает свое окно таким способом

procedure TForm1.TButonn1Click(Sender: TObject);
  begin
    Form2 := Form2.Create(nil);
    Form2 .Caption := 'Forma2';
    Form2 .Show;
    Enabled  :=  False; //Сделаем не доступной форму Form1
  end;

И так на остальные кнопки меняется только Form2,3,4.
Так вот работает все замечательно, но писать на каждую кнопку столько строк не хочется и решил написать процедуру такого типа.

public
   procedure FCreate(FName:TForm; FClass:TFormClass; FTitle:string);

procedure TForm1.FCreate(FName:TForm; FClass:TFormClass; FTitle:string);
  begin
    FName := FClass.Create(nil);
    FName.Caption := FTitle;
    FName.Show;
    Enabled  :=  False; //Сделаем не доступной форму Form1
  end;

и на кнопку следующий обработчик

procedure TForm1.TButonn1Click(Sender: TObject);
  begin
    FCreate(Form2, TForm2, 'Forma2');
  end;

И так далее на каждую кнопку. Все вроде работает.
Но если такую же процедуру сделать на одной из создаваемых форм то при закрытии этих форм вылетает ошибка.

"access violation at 0x008a454d"

[Luuzuk]

когда указываю что form1 нужно enabled=true

Хотелось бы увидеть где и как вы это делаете
P.S. если нужно просто блокировать форму, то достаточно "FName.Show;" заменить на "FName.ShowModal;", и не заморачиваться со всякими Enabled =)

[DIMASIKXXX32]

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

Хотелось бы увидеть где и как вы это делаете
P.S. если нужно просто блокировать форму, то достаточно "FName.Show;" заменить на "FName.ShowModal;", и не заморачиваться со всякими Enabled =)

Вот исходник http://narod.ru/disk/63711956001.760...sdasd.rar.html

Удалил все не нужное из папки

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

Хотелось бы увидеть где и как вы это делаете
P.S. если нужно просто блокировать форму, то достаточно "FName.Show;" заменить на "FName.ShowModal;", и не заморачиваться со всякими Enabled =)

Согласен что можно использовать ShowModal но в моей программе по этим кнопкам создаются формы справочников на которых имеются кнопки добавление и редактирование по которым создается форма добавления и редактирования.

[Luuzuk]

Ай-яй-яй, как нехорошо с вашей стороны...

[DIMASIKXXX32]

Мне кажется что то не правильно написано в процедуре создания

потому что если написать на Form1 обработчик по кнопке Button1

  Form2:=TForm2.create(nil);
  Form2.show;
  Form1.Enabled:=False;

А потом в написать на Form2 обработчик по кнопке Button1

  Form5:=TForm5.create(nil);
  Form5.show;
  Form2.Enabled:=False;

И при закрытии Form5 написать

  Form2.Enabled:=True;
  Action := caFree

То работает все ок.

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

Ай-яй-яй, как нехорошо с вашей стороны...

ой извени не то скинул

http://narod.ru/disk/63711956001.760...sdasd.rar.html

Удалил все не нужное из папки

[Прик]

procedure TForm1.TButonn1Click(Sender: TObject);
begin
  Form2 := Form2.Create(nil);
  Form2 .Show;
end;

Здорово, конечно, придумано, но попробуйте ответить на такой вопрос.
Если на кнопку Button1 нажать еще раз и еще... Что будет?

Правильно, в памяти будут плодиться экземпляры формы с потерянными ссылками на них (в этой ситуации разработчика от короткой расправы спасет только закрытие программы).
Поэтому, если создаете форму динамически, то:
- не давать создавать ее более чем один раз;
- если нужно больше форм одного класса, то придумать механизм хранения ссылок на экземпляры такой формы;
- или как справедливо сказано выше Luuzuk'ом запускать форму в модальном режиме, а по выходе память ею занятую освобождать (метод Free);

[DIMASIKXXX32]

Сообщение от Прик

procedure TForm1.TButonn1Click(Sender: TObject);
begin
  Form2 := Form2.Create(nil);
  Form2 .Show;
end;

Здорово, конечно, придумано, но попробуйте ответить на такой вопрос.
Если на кнопку Button1 нажать еще раз и еще... Что будет?

Правильно, в памяти будут плодиться экземпляры формы с потерянными ссылками на них (в этой ситуации разработчика от короткой расправы спасет только закрытие программы).
Поэтому, если создаете форму динамически, то:
- не давать создавать ее более чем один раз;
- если нужно больше форм одного класса, то придумать механизм хранения ссылок на экземпляры такой формы;
- или как справедливо сказано выше Luuzuk'ом запускать форму в модальном режиме, а по выходе память ею занятую освобождать (метод Free);

Я согласен но для этого по моему просто будет достаточно проверять создана ли эта форма или нет если да то просто показать ее

Или я не прав

На счет проверки это понятно. вопрос в том что если создать форму 2 а потом из нее создать еще одну форму на пример form5 и по закрытии form5 сослатся на форму 2 то вылетает ошибка

[Yurk@]

на OnClose закрываемой формы делать

Action:=caFree;

и должно отпустить )

[DIMASIKXXX32]

http://www.programmersforum.ru/showp...78&postcount=8

Это понятно так и делается

Здесь вируса нет!!!

Народ ну никто не подскажет в чем проблема?

[Прик]

Ну, хотя бы так:

function TForm1.FCreate(FClass: TFormClass; FTitle: string) : TForm;
begin
  Result := FClass.Create(nil);
  Result.Caption := FTitle;
  Result.Show;
  Enabled := False; //Сделаем не доступной форму Form1
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2 := TForm2(FCreate(TForm2, 'Forma2'));
end;

TForm2 и TForm3 и TForm - это разные классы и они требуют приведения типов, а в процедуре этого не происходило и Form2, к примеру, все равно ни на что не указывало (nil). При обращении выходило AV.