Мини-проекты в Delphi

Проект “Вещий камень”

Создадим проект, в котором используется переключатель – «радиокнопка» и надпись на форме – метка. Разместим на форме панель GroupBox.  Этот объект класса TGroupBox служит  контейнером для других управляющих элементов, в частности, для радиокнопок RadioButton. Радиокнопки имеют смысл, когда они взаимодействуют друг с другом в группе. Эта группа и объединяется единым контейнером, обычно панелью GroupBox. Свойство Caption содержит надпись, появляющуюся около кнопки. Значение свойства Alignment определяет, с какой стороны от кнопки появится надпись: taLeftJustify — слева, taRightJustify — справа (это значение принято по умолчанию). Свойство Checked определяет, выбрана ли данная кнопка пользователем, или нет. Определить, какую из кнопок выбрал пользователь, можно по свойству ItemIndex. Метка – класс TLabel имеет основное свойство Caption.  Его используют для размещения различных надписей на форме и других объектах.
Разместим на форме объект GroupBox, на нем три радиокнопки, а справа три метки TLabel.  В свойстве Caption для GroupBox1 напишем Вещий камень.
Для переключателей Caption  изменим на:
RadioButton1:       Пойду налево
RadioButton2:       Пойду направо
RadioButton3:       Пойду прямо
Для надписей
Label1:         Потеряешь коня
Label2:         Погибнешь сам!
Label3:         Станешь героем!
Значение Visible (видимость) для всех меток установить в False. Это значит, что после запуска программы они будут невидимы. Для того, чтобы они появлялись при соответствующем выборе нужно создать три событийные процедуры. Сделаем двойной клик на компоненте RadioButton1, и запишем три строки кода.

procedure TForm1.RadioButton1Click(Sender: TObject);
begin
    Label1.Show;
    Label2.Hide;
    Label3.Hide;
end;

По своему действию Label1.Show (показать)равносильно Label1.Visible:=true, а Label2.Hide (скрыть) эквивалентна  Label2.Visible:=false.
Обработчики событий OnClick для RadioButton2 и RadioButton3 можно написать самостоятельно, при этом можно (и нужно) использовать буфер обмена (копировать – вставить). Остается запустить программу на выполнение, а в случае неправильной работу отредактировать ее.