Другие языки программирования и технологии

Пожалуйста помогите! Что и куда вводить в программе Delphi для создания следующего приложения(см ниже)

1. Меню FILE -> New VCL Application... (Form 1)
2. Меню FILE -> New Form... (Form 2)
2. Меню FILE -> New Form... (Form 3)

Создаете объекты на формах Edit | Button (на Form3 -> Memo )

Секция implementation FORM1 добавить -> uses Unit2;
Секция implementation FORM2 добавить -> uses Unit3;
Секция implementation FORM3 добавить -> uses Unit1,Unit2;

Кликаете в конструкторе прям по объектам и описываете им стандартные
события.. .

для Button

procedure TForm1.Button1Click(Sender: TObject); begin Form2.Show end;
procedure TForm2.Button1Click(Sender: TObject); begin Form3.Show end;

Для Form3 нужно описать событие OnShow

procedure TForm3.FormShow(Sender: TObject);begin
Memo1.Text:=CurrToStr(StrToCurr(Form1.Edit1.Text)*StrToCurr(Form2.Edit1.Text))
end;

З. Ы. Для начинающих пойдет.. . грузить оптимизацией кода не буду.
А)
Андрей )))))))))
12 928
Лучший ответ
сначала надо включить имя формы в uses, желательно в implementation основного проекта, типа:
implementation
uses form2,form3;
объявить глобальные переменные для хранения результатов операции,
при нажатии кнопки form2.show;
точно также при нажатии конпки на form2 - form3.show;
Запускаем Delphi. Автоматически создается проект с формой. На форму кладем Edit и Button. У Button'а меняем Caption на "Дальше" (без кавычек) .
Добавляем еще одну форму (автоматически имя будет Form2). На первой форме делаем двойной щелчок по добавленной кнопке, прописываем внутри открывшейся процедуры: Form2.ShowModal;
Нажимаем Ctrl+F9, соглашаемся с добавлением в Uses...
На вторую форму кладем Edit и Button. У Button'а меняем Caption на "Посчитать".
Добавляем третью форму (Form3). На второй форме - двойной щелчок по Button'у. Вписываем Form3.ShowModal;
На 3-ю форму кладем Label.
В диспетчере объектов переходим на вкладку Events, ищем OnShow. Двойной Щелчок по полю - попадаем в редактор. В нем пишем: Label1.Caption := FloatToStr(StrToFloat(Form1.Edit1.Text)*StrToFloat(Form2.Edit1.Text));
Асет Алибеков
Асет Алибеков
1 136
Создай три формы. От формы к форме переходится методом Show или Activate соответствуещей формы. К примеру Form2.Show - появится форма Form2. Добавь едиты. Для кнопки создай дествие clik (двойным нажатием на кнопку) там делай переходы. Потом на кнопке "посчитать" умножай то что в едитах и результат в последний едит.. .
не забудь поставить в uses все три формы
Edit3.Text := FloatToStr(StrToFloat(Edit1.Text)*StrToFloat(Edit1.Text) )

Проще простого.