Программирование - это просто
Advertisement
Главная arrow Уроки Delphi arrow Delphi - это просто! arrow Delphi. Урок 5. Продолжим изучать компоненты Delphi (CheckBox, RadioButton, ListBox и ComboBox).
25.04.2024 г.
Главное меню
Главная
Интернет магазин
Программные продукты
Биржевые роботы
Искусственный интеллект
Математика и информатика
1С:Предприятие
Уроки C#
Уроки Delphi
Уроки программирования
Web-программирование
Дизайн и графика
Компьютер для блондинок
Исходники
Статьи
Платный раздел
Рассказы про компьютеры
Хитрости и секреты
Системный подход
Размышления
Наука для чайников
Друзья сайта
Excel-это не сложно
Все о финансах
.
Delphi. Урок 5. Продолжим изучать компоненты Delphi (CheckBox, RadioButton, ListBox и ComboBox). Печать E-mail
Автор megabax   
01.07.2009 г.
<strong>Продолжим изучать поиск и замену. Функция Delphi StringReplace</strong>

Продолжим изучать компоненты Delphi (CheckBox, RadioButton, ListBox и ComboBox).

Сегодня мы продолжим изучение компонентов Delphi. Следующий на очереди CheckBox (флажок)*.

 

компоненты Delphi CheckBox

 

Положим его на форму. Присвоим нормальный идентификатор (свойство Name) – chbTest. Затем положим на форму кнопку. Ей присвоим идентификатор btnTestCheckBox. Еще, дабы соблюсти хороший стиль программирование, присвоим форме идентификатор frmTest. Так же давайте сделаем у кнопки и у флажка удобоваримые заголовки (свойство Caption). У флажка «Кнопка доступна», у кнопки «Жми сюда».

 

Создадим у флажка обработчик события ObClick:

 

procedure TfrmTest.chbTestClick(Sender: TObject);

begin

  btnTestCheckBox.Enabled:=chbTest.Checked;

end;

 

Создадим обработчик формы OnShow:

 

procedure TfrmTest.FormShow(Sender: TObject);

begin

  btnTestCheckBox.Enabled:=chbTest.Checked;

end;

 

И, наконец, обработчик нажатия на кнопку:

 

procedure TfrmTest.btnTestCheckBoxClick(Sender: TObject);

begin

  messageDlg('Вы нажали на кнопку',mtInformation,[mbOk],0);

end;

 

Запустим программу. Мы видим, что кнопка «Жми сюда не доступна». И, сколько не нажимай на нее, ничего не происходит.

 

компоненты Delphi CheckBox

А вот стоит только нам поставить галочку напротив «Кнопка доступна», как она становиться доступной!

 

компоненты Delphi CheckBox

Теперь попробуем нажать – и, вуаля, выскакивает сообщение.

Переходим к следующему компоненту RadioButton*.

 

компоненты Delphi RadioButton

 

Поставим на форму четыре таких компонента, два поля редактирования, метку (Label) и кнопку. Смой форме присвоим идентификатор frmCalk. Полям ввода edNumber1 и edNumber2. Метке lbResult, кнопке btnCalk, а компонтам RadioButton: rbPlus, rbMinus, rbMult, rbDivide. Так присвоим им соответствующие значения свойства Caption: «Плюс», «Минус»,   «Умножить» и «Разделить». У объекта rbPlus свойство Checked установим в true.

 

Теперь напишем обработчик события OnClick кнопки:

 

procedure TfrmCalk.btnCalkClick(Sender: TObject);

var n1,n2,r:real;

begin

    n1:=StrToFloat(edNumber1.Text);

    n2:=StrToFloat(edNumber2.Text);

    if rbPlus.Checked then r:=n1+n2;

    if rbMinus.Checked then r:=n1-n2;

    if rbMult.Checked then r:=n1*n2;

    if rbDivide.Checked then r:=n1/n2;

    lbResult.Caption:=FloatToStr(r);

end;

 

У нас получился простейший калькулятор.

 

На самом деле компонентов в Delphi превеликое множество. В рамках этих уроков мы не будем изучать их все, а только самые необходимые. Сейчас мы кратко рассмотрим компоненты ListBox и ComboBox, а на следующем уроке перейдем к закладке Additional*.

 

компоненты Delphi ListBox и ComboBox

 

Напишем простейший демонстрационный пример использования ListBox. Положим на форму ListBox, назовем его lbTest, добавим к форме кнопку, назвем ее btnTest  и создадим вот такой обработчики события OnClick

 

procedure TfrmTest.btnTestClick(Sender: TObject);

begin

   lbTest.Items.Add('Вася');

   lbTest.Items.Add('Иван');

   lbTest.Items.Add('Даша');

   lbTest.Items.Add('Саша');

   lbTest.Items.Add('Зоя');

end;

 

вот что мы увидим, когда запустим программу и нажмем на кнопку:

компоненты Delphi ListBox и ComboBox

Компонент ComboBox так же представляет из себя список, к элементом которого можно получить доступ через свойство Items (в том числе и обращаться к элементам через []). Но, в отличии от ListBox он является выпадающим списком и имеет свойство Text, в котором содержится выбранный пункт выпадающего списка.

 

 


Скриншоты, помеченные знаком * , являются цитатами и иллюстрациями   программного продукта "Delphi", авторское право на который принадлежит "Borland Software Corporation".


 

 

 

Последнее обновление ( 30.06.2012 г. )
 
« След.   Пред. »
 
© 2024 Программирование - это просто
Joomla! - свободное программное обеспечение, распространяемое по лицензии GNU/GPL.
Русская локализация © 2005-2008 Joom.Ru - Русский Дом Joomla!
Design by Mamboteam.com | Powered by Mambobanner.de
Я принимаю Яндекс.Деньги