-
Основы Delphi
- Основы программирования на Delphi
- Компоненты Delphi. Начинаем писать свои первые приложения на Delphi
- Основные принципы программирования в Delphi. Начинаем программировать самостоятельно
- Delphi и Microsoft Word
- Delphi и Microsoft Excel
- Delphi и Microsoft Access
- Delphi и OpenOffice Writer
- Delphi и OpenOffice Calc
- Создание игр на Delphi
- Игра Пристрели птичку
Delphi и MSOffice
Delphi и OpenOffice
Delphi и Интернет
Delphi и игры
Delphi Android
Школа программирования Delphi
Портал DelphiSchool является бесплатным проектом, обеспечивающим пользователям быстрый и легкий доступ к урокам программирования на Delphi. Сайт позволяет научиться программировать на Делфи любому, кто хочеть писать свои программы, игры, Android приложения, программы для MAC OC или IOS. Кроме уроков Delphi и статей Delphi, на сайте доступны также и видеоуроки. Практически к каждому уроку, пользователю доступен исходник, изучив который, он сможет наглядно посмотреть как работает та или иная программа, написанная на Делфи. Кроме того мы постараемся прилагать к каждому материалу (статье, уроку, видеоуроку) файлы Delphi, которые будут помогать изучить предоставленный материал.
Каждый кто решил написать свою программу, создать свое приложение, научиться программировать и т.д., найдет на DelphiSchool статьи Delphi, уроки Delphi, видеоуроки Delphi, исходники Delphi, файлы Delphi, изучит компоненты Delphi, посмотрит Delphi примеры и многое другое абсолютно бесплатно. Все о Delphi программировании теперь собрано на одном сайте!!!
Главная » Уроки Delphi » Основы Delphi » Компоненты Delphi. Начинаем писать свои первые приложения на Delphi |
Компонент RadioButton очень похож с CheckBox, который мы изучали в статье Delphi и CheckBox. Пример работы с CheckBox в Делфи. Свойство Checked отображает состояние компонента RadioButton. Если компонент выделен, значит свойство Checked равно true, если нет – false. Единственное отличие в том, что если разместить на форме несколько компонентов RadioButton, то одновременно можно выделить только один из них (в отличие от CheckBox, где флажком можно отметить несколько компонентов). Давайте рассмотрим пример работы с кнопками выбора в Делфи. Для этого создадим новый проект и поместим на форму несколько компонентов RadioButton. Если запустить нашу программу и понажимать на наших RadioButton, то вы видите что отметить можно только один RadioButton (одновременно выделить несколько RadioButton не получиться). Но тогда возникает вопрос, как сделать чтобы можно было выделить несколько компонентов RadioButton одновременно? Например, нам одновременно нужно выбрать пол (мужской, женский) и возраст (от 16 до 18, от 19 до 25, от 26 до 30). Для этого можно использовать панели, которые мы изучали в статье Delphi и TPanel. Пример работы с панелями в Делфи. Давайте разместим на форме две панели (TPanel), установим свойство Align равное alLeft для первой панели, а для второй – alRight и очистим у обеих панелей свойство Caption. Теперь на первую панель установим два компонента RadioButton, а на вторую три компонента RadioButton. У RadioButton1 меняем свойство Caption на "Мужчина", у RadioButton2 на "Женщина", у RadioButton3 на "от 16 до 18", у RadioButton4 на "от 19 до 25", у RadioButton5 на "от 26 до 30". Также добавим кнопку на первую панель и изменим ее свойство Caption на "ОК". Создадим обработчик события OnClick для кнопки и напишем такой код: Код procedure TForm1.Button1Click(Sender: TObject); var pol, age: String; // переменные для проверки выбран, или нет пол и возраст begin pol:='Не выбран'; // по умолчанию ставим что пол не выбран age:='Не выбран'; // по умолчанию ставим что возраст не выбран // присваиваем переменным возраст и пол в зависимости от того какая кнопка отмечена if RadioButton1.Checked then pol:=RadioButton1.Caption; // Если выделен RadioButton1, то присваиваем переменной pol его заголовок if RadioButton2.Checked then pol:=RadioButton2.Caption; // Если выделен RadioButton2, то присваиваем переменной pol его заголовок if RadioButton3.Checked then age:=RadioButton3.Caption; // Если выделен RadioButton3, то присваиваем переменной age его заголовок if RadioButton4.Checked then age:=RadioButton4.Caption; // Если выделен RadioButton4, то присваиваем переменной age его заголовок if RadioButton5.Checked then age:=RadioButton5.Caption; // Если выделен RadioButton5, то присваиваем переменной age его заголовок // условие, если не выбран пол, или возраст, то появляется соответствующее сообщение If (pol='Не выбран') or (age='Не выбран') then begin ShowMessage('Вы не выбрали пол, или возраст') end else ShowMessage('Вы '+pol+' и вам '+age+' лет'); // если пол и возраст выбран, то появляется сообщение в котором указан пол и возраст end; Для того, чтобы вам было понятно что и для чего делается в этом коде, я специально сделал комментарии, почитав которые вы сможете легко разобрать этот код и понять что в нем происходит. Рисунок. Пример работы с RadioButton в Delphi К уроку (статье) Delphi и TRadioButton. Пример работы с кнопками выбора в Делфи прилагается исходник, посмотрев который, вы можете ознакомиться с полным исходным кодом программы и посмотреть как работает созданная программа. Исходный код сопровождается комментариями, благодаря чему вы сможете легко в нем разобраться. Но я настоятельно рекомендую делать все самостоятельно. Так вы лучше и быстрее усвоите то, о чем говорилось в этом уроке Для того чтобы получить возможность скачать исходник Delphi к этому уроку, необходимо посетить сайт рекламодателя. После этого, появится ссылка на исходник Delphi к уроку Delphi и TRadioButton. Пример работы с кнопками выбора в Делфи | |
Добавить Delphi и TRadioButton. Пример работы с кнопками выбора в Делфи в закладки: |
Диалоговые окна в Delphi. ShowMessage, MessageDlg, MessageDlgPos, InputBox и InputQuery |
Delphi и RadioGroup. Пример работы с группой компонентов RadioButton в Делфи |
Основы работы с MS Word. Создание, открытие, сохранение и закрытие документа Word с помощью Delphi |
Delphi и TButton. Учимся работать с кнопкой в Delphi. Часть 2. События кнопки |
Delphi и ComboBox. Пример работы с ниспадающими списками в Делфи |
Delphi и TEdit. Пример работы со строками ввода в Делфи |
Константы в Delphi. Объявление констант в Делфи |
Управление циклами в Delphi. Операторы Continue и Break. |
Delphi и CheckBox. Пример работы с CheckBox в Делфи |
Delphi и TPanel. Пример работы с панелями в Делфи |
Всего комментариев: 0 | |