Question

«PascalABC.Net - tour 4». Каков код программы для данной задачи?

Задача:

Написать код программы, которая будет создавать второе окно при нажатии на кнопку «button».

Answer 1

{$apptype windows}

{$reference 'System.Windows.Forms.dll'}

{$reference 'System.Drawing.dll'}

uses

System.Windows.Forms,

System.Drawing;

var

Form1, Form2: Form;

procedure CloseClick(sender: object; args: System.EventArgs);

begin

Form2.Close;

end;

procedure bClick(sender: object; args: System.EventArgs);

begin

Form2 := new Form;

var but := new Button;

but.Location := new System.Drawing.Point(15, 15);

but.AutoSize := true;

but.Text := 'Закрыть';

but.Click += CloseClick;

Form2.Controls.Add(but);

var tb := new TextBox;

tb.Multiline := True;

tb.Height := 200;

tb.ReadOnly := true;

tb.Dock := DockStyle.Bottom;

tb.ScrollBars := ScrollBars.Both;

Form2.Controls.Add(tb);

Form2.ShowDialog(Form1);

end;

begin

Form1 := new Form;

var but := new Button;

but.Location := new System.Drawing.Point(110, 120);

but.AutoSize := true;

but.Text := 'Открыть еще форму';

but.Click += bClick;

Form1.Controls.Add(but);

Application.Run(Form1);

end.