Студопедия
Случайная страница | ТОМ-1 | ТОМ-2 | ТОМ-3
АрхитектураБиологияГеографияДругоеИностранные языки
ИнформатикаИсторияКультураЛитератураМатематика
МедицинаМеханикаОбразованиеОхрана трудаПедагогика
ПолитикаПравоПрограммированиеПсихологияРелигия
СоциологияСпортСтроительствоФизикаФилософия
ФинансыХимияЭкологияЭкономикаЭлектроника

Лабораторная работа №4. Работа с кнопками и таблицами

Читайте также:
  1. C) Работа над когнитивными структурами и неправильной атрибуцией
  2. IV. Практическая работа.
  3. IV. Работа над новым материалом.
  4. IV. Работа с текстами.
  5. IV. Словарная работа.
  6. V Вам не нужно принимать решения, начислять проценты и работать с должниками- Это наша работа
  7. V. Лабораторная диагностика сибирской язвы

Работа с кнопками и таблицами

План работы:

1. Проект “Калькулятор”

Разработать проект, выполняющий простейшие арифметические действия над целыми и вещественными числами. Ввод чисел и выполнение действий в данном калькуляторе можно будет производить с помощью щелчка мыши по кнопкам формы. На этапе выполнения форма должна иметь следующий вид:

a) Создайте новый проект в Delphi и сохраните его в отдельной папке “Калькулятор”;

b) Оформите форму в соответствие с рисунком;

c) Установите свойство BorderStyle формы таким образом, что бы нельзя было изменить ее размер в процессе выполнения приложения.

d) Для компонента Edit (вкладка Standard) свойство ReadOnly установите true, т.е. текст нельзя будет редактировать, а можно только просматривать;

e) Обработайте событие OnClick для кнопки с заголовком “1” следующим образом:

procedure TForm1.Button1Click(Sender: TObject);

Var

s: string; {необходима для хранения цифры с заголовка кнопки}

Begin

{рассматриваем объект, вызвавший событие, как объект класса

TButton и выберем у него свойство Caption}

s:= (Sender as TButton).Caption;

{если в Edit1 уже что-то есть, кроме 0, то просто допишем туда

одну цифру}


Дата добавления: 2015-08-17; просмотров: 39 | Нарушение авторских прав


<== предыдущая страница | следующая страница ==>
ЛАЙФПАК СЕНЬОР| If s <> '0' then

mybiblioteka.su - 2015-2024 год. (0.005 сек.)