[alexusankov]

Доброе утро.
Появилась потребность писать программу используя Delphi 2006 и MDi формы.
Однако загуглив , я поразился, - неужели нет какого либо адекватного способа, спрятать все формы и показывать по клику?
Например у меня есть родительская форма Main, и дочерняя Form1. Дочерняя форма убрана из автосоздания.
Как по клику мне ее показать?)
Поделитесь кодом, пожалуйста

[M.A.D.M.A.N.]

Заходишь в dpr и удаляешь application.fomrcreate(form2...

[NumLock]

по клику куда?

[alexusankov]

Сообщение от M.A.D.M.A.N.

Заходишь в dpr и удаляешь application.fomrcreate(form2...

Есть родительское окно. Есть форма. В свойстве формы установлено, что форма дочерняя. В FormStyle.
В Project -> Options дочерняя форма убрала вправо, чтобы сама не содавалась.
На основной форме есть Кнопка.
1. Как по клику на кнопку показать форму?
2. Как сделать, чтобы при закрытии формы она не сворачивалась, а закрывалась?
Заранее, спасибо

[icWasya]

например так

Код:

Procedure TMainForm.Button1Click(Sender:TObject);
var
  Form1:TForm1;// именно локальная переменная
begin
  Form1:=TForm1.Create(nil);
  try
    /*здесь можно поставить код, 
       который может дополнительно заполнять форму*/
    Form1.Edit1.Text:='Привет';

    Form1.ShowModal();// собственно показываем
    /*здесь можно поставить код, 
       который считывает с формы что-нибудь*/
    if Form1.ModalResult = mrOk then
      Caption := Form1.Edit1.Text;

  finally
    Form1.Free; // если больше не нужна - удаляем
  end;
end;

[M.A.D.M.A.N.]

Код:

form2clode(sender...
begin
  action := cafree;

вроде как-то так

[alexusankov]

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

например так

Код:

Procedure TMainForm.Button1Click(Sender:TObject);
var
  Form1:TForm1;// именно локальная переменная
begin
  Form1:=TForm1.Create(nil);
  try
    /*здесь можно поставить код, 
       который может дополнительно заполнять форму*/
    Form1.Edit1.Text:='Привет';

    Form1.ShowModal();// собственно показываем
    /*здесь можно поставить код, 
       который считывает с формы что-нибудь*/
    if Form1.ModalResult = mrOk then
      Caption := Form1.Edit1.Text;

  finally
    Form1.Free; // если больше не нужна - удаляем
  end;
end;

Нужно вывести ее как форму в форме. Это же MDI приложение, и у form2 в свойстве formstyle указано, что она дочерняя форма. ChildForm

Ну представьте себе, что у вас есть MDI прилолжение и в нем 12 отрисованных и готовых форм с добавленными кнопками, и прочими элементами. При открытии основной формы, форма открывает все свои дочерние окна. Как сделать по кнопке на окно, чтобы именно при клике на первую кнопку, открылась 1 форма итп.
Может я неправильно вопрос формулирую?

[NumLock]

"c:\Program Files\Borland\Delphi7\Demos\Doc\TextEdit"

[M.A.D.M.A.N.]

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

Как сделать по кнопке на окно, чтобы именно при клике на первую кнопку, открылась 1 форма итп.

Ничего не понял.