Создание ещё одной формы

[_-Re@l-_]

А можешь привести пример кода?

08:37

И ещё: когда я вставляю в процедуру код:

Form2 := TForm2.Create(self);
  try
 Form2.ShowModal;
  finally
 Form2.Free;
  end;

Он мне пишет: Undeclared Identifier "Form2". А, так получается с ним тоже надо делать:

type
      TForm2 = class(TForm)
      ......

?

У нас принято пользоваться кнопочкой "Правка", дабы не плодить посты подряд, друг за другом.
Читаем правила. Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Уважайте форумчан, и они ответят вам взаимностью...
Модератор

[ex.cluz]

Вообще он указывает, что такая переменная, как Form2 нигде не описана. Поэтому саму форму создавать не надо, а вот описать совершенно необходимо.
Например, в разделе private.

  private
    Form2: TForm;

И теперь все будет работать.

[_-Re@l-_]

А.Всё, Понял

10:05

О, щаработало, только ошибка была в коде:

Form2 := TForm2.Create(self);

При такой процедуре он пишет "Undeclared Identifier", а если исправить на:

Form2 := TForm.Create(self);

то всё будет отлично работать, новая форма прекрасно создаётся =)

10:15

Сообщение от _-Re@l-_

А вот если при нажатии одной кнопки создаётся Form2, то как прописать все объекты, которые там будут?Ну, допустим, Button1, Button2, Label1, EditBox1?

Методом create, а в качестве родителя ставить Form2.
При этом проперти компонентов придется прописывать самому (если они отличаются от дефолтных).

Поэтому если на вызываемой форме много элементов, то проще ее создать в дизайнере, напихать туда контролов, а потом показывать ее (show или showmodal).

А еще лучше - скажите для каких целей все это вам надо. Если для чисто познавательных - лучше книги почитать.

Только надо это мне не для познавательных целей, я просто пишу свой калькулятор(с целью обучения), и при нажатии одной из кнопок должно появиться форма, которая запрашивает у пользователя коэффициенты a,b,c и находит корни квадратного уравнения(это одна из очень многих функций моего творения)

И всё-таки( я просто не понял), как будет выглядеть код создания объектов на второй форме?

У нас принято пользоваться кнопочкой "Правка", дабы не плодить посты подряд, друг за другом.
Читаем правила. Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Уважайте форумчан, и они ответят вам взаимностью...
Модератор

[ex.cluz]

Создавайте лучше в дизайнере.
Так будет нагляднее.
А вообще, так:
Объявляете переменные, например: Label1: TLabel;
В вызове формы (событие OnClick на кнопке) пишите:

begin
Form2:=TForm.Create(Self);
Label1:=TLabel.Create(Form2);
Label1.Parent:=Form2;
Label1.Caption:='It really works!';
//тут надо прописывать остальные проперти (высота этой надписи, ее положение на форме и т.д.)
Form2.ShowModal;
Form2.Free;
end;

[vovk]

то что предлагал

Alter

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

так лучше

Form2 := TForm2.Create(self);
  try
 Form2.ShowModal;
  finally
 Form2.Free;
  end;

подходит если уже есть модуль в котором описана TForm2, то есть предполагается что вы добавили форму в проект, и в uses того модуля в котором вы это пишите добавлена ссылка на модуль в котором описана TForm2. То есть выполнено хотябы

Сообщение от Пепел Феникса

для начала File->New->Form

форму можно удалить из автосооздаваемых в модуле проекта, Project>Options на закладке Forms переместить из auto create в Available, и использовать только там где нужно, то есть создавать, совершать действия, и уничтожать..

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

var
form_:Tform;
edit_: TEdit;
begin
form_ := TForm.Create(Self);
try
 form_.Position:=poOwnerFormCenter;
 form_.Width:=300;
 form_.Height:=150;
edit_:= TEdit.Create(form_);
with edit_ do
 begin
     Parent:=form_;
     Width:=250;
     Top:= 10;
     Left:=25;
     Text:='введите новый заголовок для формы';
  end;
with TButton.Create(form_)  do
 begin
     Parent:=form_;
     Width:=50;
     Height:=30;
     Top:= form_.ClientHeight-30-10;
     Left:=50;
     Caption:='Ok';
     ModalResult:=mrOk;
  end;
with TButton.Create(form_)  do
  begin
     Parent:=form_;
     Width:=50;
     Height:=30;
     Top:= form_.ClientHeight-30-10;
     Left:=form_.ClientWidth-50-50;
     Caption:='Cancel';
     ModalResult:=mrCancel;
  end;
 form_.ShowModal;
 if form_.ModalResult=mrOk then
 self.Caption:= edit_.Text;
 finally
  form_.Free;
end;
end;

то что предложил вполне можно запихать в обработчик онклик каколибо кнопки на своей форме, ну и проверить.

[ex.cluz]

2_-Re@l-_
Прошу прощения за дезинформацию (я цифру 2 в TForm2.Create(self); в записи у Alter не заметил)
vovk правильно сказал:

то что предлагал
Цитата:
Alter

Цитата:
Сообщение от Alter
так лучше

Код:

Form2 := TForm2.Create(self);
try
Form2.ShowModal;
finally
Form2.Free;
end;


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

[_-Re@l-_]

А, понятно. А как задать размеры открывающейся формы?

10:26

А, всё, нашёл. Тогда спрошу другое: как задать координаты появления второй формы?( а то она появляется в левом верхнем углу, а надо бы посередине)

У нас принято пользоваться кнопочкой "Правка", дабы не плодить посты подряд, друг за другом.
Читаем правила. Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Уважайте форумчан, и они ответят вам взаимностью...
Модератор

[vovk]

ндяя.. перечитайте пост №19, только внимательно

form_.Width:=300;
form_.Height:=150;

всёравно перечитайте пост №19, только внимательно

form_.Position:=poOwnerFormCenter;

[ex.cluz]

_-Re@l-_, а почему вы хотите создавать именно динамические формы?

Кстати, (если еще не знаете) после Form2.free, вы не сможете считать данные из полей ввода, которые располагались на форме. А вам, насколько я знаю, необходимо считывать значения коэффициентов.

Поэтому метод free для программно созданной формы необходимо вызывать только после того, как будут прочитанны все необходимые данные.

[_-Re@l-_]

А вто что здесь не так:

Edit10.Parent:=Form2;
  Edit10.Top:=40;
  Edit10.Left:=30;
  Edit10.Width:=150;
  Edit10.Height:=20;

? Просто когда жму на кнопку, он должен создавать Label10 с надписью "Вычисление корней кв.уравнения" и Edit1, но он пишет:
"Проект Project2 вызвал исключение класса EAccessViolation с сообщением "Access violation at address 00452089 in module "Project2".Read of address 00000000". Процесс остановленю. Используйте Шаг или Запуск для продолжения"

11:55

В общем, какие параметры нужно задавать Edit10, Button100( это у меня такие наименования), чтобы всё нормально работало?

У нас принято пользоваться кнопочкой "Правка", дабы не плодить посты подряд, друг за другом.
Читаем правила. Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Уважайте форумчан, и они ответят вам взаимностью...
Модератор