2. Откройте проект из примера 3.12 и добавьте на форму три метки и две кнопки.

Откроем проект из примера 3.12 и добавим три label и две button. Изменим свойства этих элементов, как показано в таблице в упражнении. Для textBox1 создадим обработчик нажатия клавиши KeyPress. В этом обработчике для элементов Label3, Button1 и Button2 установим свосйтву Visible значение True, чтобы при нажатии клавиши Enter эти элементы стали видимыми в форме.

В обработчиках Click для Button1 и Button2 сделаем видимыми надписи Label4 и Label5.

Добавьте в приложение еще один вопрос. Форму ответа выберите самостоятельно.

По аналогии добавим ещё один вопрос с кнопками и текстом для каждой кнопки.

Скачать готовый проект Pascal: Upr2-2.rar.

Итоговая программа может выглядеть так:

Unit Unit1;

interface

uses System, System.Drawing, System.Windows.Forms;

type
  Form1 = class(Form)
    procedure textBox1_KeyPress(sender: Object; e: KeyPressEventArgs);
    procedure button1_Click(sender: Object; e: EventArgs);
    procedure button2_Click(sender: Object; e: EventArgs);
    procedure button3_Click(sender: Object; e: EventArgs);
    procedure button4_Click(sender: Object; e: EventArgs);
{$region FormDesigner}
  private
    {$resource Unit1.Form1.resources}
    label1: &Label;
    label2: &Label;
    button1: Button;
    button2: Button;
    label3: &Label;
    label4: &Label;
    label5: &Label;
    label6: &Label;
    button3: Button;
    button4: Button;
    label7: &Label;
    label8: &Label;
    textBox1: TextBox;
    {$include Unit1.Form1.inc}
  {$endregion FormDesigner}
  public
    constructor;
    begin
      InitializeComponent;
    end;
  end;

implementation

procedure Form1.textBox1_KeyPress(sender: Object; e: KeyPressEventArgs);
begin
  if e.KeyChar = #13 then
  begin
    label2.Text := TextBox1.Text + ', приятно с Вами познакомиться!';
    Label3.Visible := True;
    Button1.Visible := True;
    Button2.Visible := True;
  end;
end;

procedure Form1.button1_Click(sender: Object; e: EventArgs);
begin
  Label4.Visible := True;
  Label6.Visible := True;
  Button3.Visible := True;
  Button4.Visible := True;
end;

procedure Form1.button2_Click(sender: Object; e: EventArgs);
begin
  Label5.Visible := True;
  Label6.Visible := True;
  Button3.Visible := True;
  Button4.Visible := True;
end;

procedure Form1.button3_Click(sender: Object; e: EventArgs);
begin
  Label7.Visible := True;
end;

procedure Form1.button4_Click(sender: Object; e: EventArgs);
begin
  Label8.Visible := True;
end;

end.
Другие задания