а так не годится:
Код:
unit Unit1;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2:=TForm2.Create(Application);
Form2.ShowModal;
ShowMessage(Form2.Edit1.Text+#13#10+Form2.Edit2.Text+#13#10+Form2.Edit3.Text);
Form2.Free;
end;
Код:
unit Unit2;
type
TForm2 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Button1: TButton;
? |