Пример 1. Радиокнопки

 

В данном приложении при нажатии кнопки «Показать» будет отображаться некоторый текст на метке, причём текст будет зависеть от выбора одной из радиокнопок. При нажатии на кнопку «Стереть» текст должен удаляться с метки, а при нажатии на кнопку «Выход» приложение должно завершать свою работу.

 

В приложении должно быть 2 метки, 2 радиокнопки, 3 кнопки редактирования.

 

в окне Object Inspector на вкладке Properties необходимо установить следующие значения для свойств формы и компонентов:

 

Form1

Caption

Песенка Винни-Пуха

Height

234

Width

348

 

Label1

Caption

Выберите песенку Винни-Пуха

Left

80

Top

8

 

Label2

Caption

 

Left

48

Top

88

 

RadioButton1

Caption

песенка №1

Left

48

Top

32

 

RadioButton2

Caption

песенка №2

Left

48

Top

56

 

Button1

Caption

Показать

Left

40

Top

152

 

Button2

Caption

Стереть

Left

136

Top

152

 

Button3

Caption

Выход

Left

232

Top

152

 

Вид приложения на этапе разработки представлен на следующем рисунке:

 

 

Текст файла Unit1.pas

 

unit Unit1;

 

interface

 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

 

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    RadioButton1: TRadioButton;

    RadioButton2: TRadioButton;

    procedure RadioButton1Click(Sender: TObject);

    procedure RadioButton2Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

 

var

  Form1: TForm1;

  i: byte;
 

implementation

 

{$R *.dfm}

 

//  если нажата первая радио-кнопка

procedure TForm1.RadioButton1Click(Sender: TObject);

begin

  i := 1;

end;

 

//  если нажата вторая радио-кнопка

procedure TForm1.RadioButton2Click(Sender: TObject);

begin

  i := 2;

end;

 

//  вывод текста при нажатиии на первую кнопку

procedure TForm1.Button1Click(Sender: TObject);

begin

  if i=1 then Label2.Caption := 'Хорошо живёт на свете Винни-Пух,'

              + chr(13) + 'От того поёт он эти песни в слух' ;

 

  if i=2 then Label2.Caption:='Я тучка, тучка, тучка,' +

              chr(13) + 'Я вовсе не медведь.'  +

              chr(13) + 'Ах как приятно тучке по небу лететь.';

end;

 

//  удаление текста при нажатии на вторую кнопку

procedure TForm1.Button2Click(Sender: TObject);

begin

  Label2.Caption:='';

end;

 

//  завершение работы приложения при нажатии на третью кнопку

procedure TForm1.Button3Click(Sender: TObject);

begin

   Form1.Close;

end;

 

end.