Пример 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. |