Лабораторная работа №7 - раздел Программирование, Объектно-ориентированное программирование на языке Delphi Флажки. При Активизации Двойным Щелчком Мыши Checkbox1 Появится Процед...
Задача: При установке флажка текст в Метке1 должен становиться жирным.
Procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if checkbox1.Checked=true
then Label1.font.Style:=font.style+[fsbold]
else Label1.font.Style:=font.style-[fsbold]
end;
То есть, если (if) флажок установлен, (then) текст в Метке1 должен становиться жирным, (else) а при повторном нажатии на флажок – обычным.
Рассмотрим применение таблицы для первого случая, когда необходимо текст в многострочном редакторе сделать жирным при установке флажка и обычным при повторном нажатии.
<Условие>
<Оператор>
CheckBox1.checked
Memo1.Font.Style:=Memo1.Font.Style+[fsBold]
Memo1.Font.Style:=Memo1.Font.Style-[fsBold]
Вставив условия и операторы в шаблон получим:
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.checked then
Memo1.Font.Style:=Memo1.Font.Style+[fsBold]
else
Memo1.Font.Style:=Memo1.Font.Style-[fsBold]
end;
Переключатели. Задача: При установке переключателей текст в Метке1 должен становиться желтым либо красным.
Алгоритмы и исполнители... Основные понятия объектно ориентированного программирования... Проверочная работа Алгоритмы и исполнители Основные понятия ООП...
Если Вам нужно дополнительный материал на эту тему, или Вы не нашли то, что искали, рекомендуем воспользоваться поиском по нашей базе работ:
Лабораторная работа №7
Что будем делать с полученным материалом:
Если этот материал оказался полезным ля Вас, Вы можете сохранить его на свою страничку в социальных сетях:
Объектно-ориентированное программирование на языке Delphi
Информатика – это область человеческой деятельности, связанная с процессами преобразования информации с помощью компьютеров и их взаимодействием со средой применения. Информатика появилась благодар
Алгоритмы и исполнители
Термин алгоритм происходит от имени узбекского ученого 9в. Аль-Хорезми, который в своем труде "Арифметический трактат", переведенном в 12в. с арабского на латынь, изложил правила а
Форма и размещение на ней простейших объектов
Среда программирования Delphi состоит из:
1. Главного меню. В нем располагаются стандартные операции работы с файлами (создать, сохранить, закрыть и т.д.)
Ниже располагаютс
Лабораторная работа №1
1. Запустите среду программирования Delphi
2. Перед вами открылся новый проект, состоящий из Формы (Form), на которую будете наносить объекты и окно Программного кода (Uni
Расположение объектов на форме
Местоположение объекта, которое он будет занимать на форме после запуска приложения на выполнение, можно легко изменить.
Для этого достаточно перетащить объект с помощью мыши в любое место
Лабораторная работа №2
Расположение управляющих элементов на форме.Расположение на форме и размеры управляющих элементов можно легко изменять с помощью мыши. Для этого необходимо активизировать объект ще
Лабораторная работа №3. MainMenu - главное меню формы
Компонент класса TMainMenu определяет главное меню формы (программы).
1. Установите компонент на форму
2. Создайте пункты меню. Для этого следует дважды щелкнуть по компоне
Проверочная работа №2. Работа с компонентами.
Вариант №1.
1. Что такое компонент? ________________________________________________________________________________________________________________________
2. Охарактеризу
Лабораторная работа № 4
Решим простейший пример: найти сумму трех чисел.
1. Описываем после служебного слова VAR несколько переменных целого типа для удобства решения: Var a, b, c, s: integer;
Лабораторная работа №8
Задача: Написать программу, которая по введенному числу 1..3 выводит его название.
Опишем переменную Var a: integer;
Лабораторная работа №9
Рассмотрим алгоритм решения задачи, в которой нужно подсчитать количество вхождений символа «а» в строку. Используем компоненты классов TEdit и TMemo для ввода строки и вывода
Лабораторная работа №10
Задача: Вывести 5 одинаковых надписей: «Программа цикла»
Для вывода повторяюще
Проверочная работа №4. Строки. Циклы
Вариант №1.
1. Опишите строку s.
________________________________________________________________
2. Напишите программу для проверки количества вх
Рассмотрение дополнительных компонентов для ввода/вывода строк
Для ввода и вывода информации в объектно-ориентированном программировании существует целый ряд вариантов. В библиотеке визуальных компонентов Delphi существует множество компонентов, позволя
Графические компоненты
TImage – изображение
Данный компонент служит для размещения на форме одного из трех поддерживаемых Delphi типов изображений: растрового рисунка (*.bmp), значка (*.ico) или метафайла
Лабораторная работа №11
Создадим несложную программу просмотра изображений:
1. Поместите на форму панель TPanel, очистите ее свойство Caption.
2. Разместите на панели кнопку TButton с надписью Загрузить.
Лабораторная работа №12
Для обращения к ячейке [0,0] нужно использовать свойство Cells:
StringGrid1.Cells[0,0]:=IntToStr(5)
1. Проиллюстрируйте возможности рассмотренного компонента, состав
Массивы
Массив – упорядоченный набор однотипных значений – компонент массива. Тип компонент называется базовым типом массива.
В Delphi массив рассматривается как переменная структури
Лабораторная работа №13
Задания для самостоятельной работы:
1.Заполнить линейный массив произвольными числами и вывести его на экран.
2.Заполнить линейн
Проверочная работа №5. Массивы
Вариант №1.
1. Опишите массив a, состоящий из 10 элементов.
________________________________________________________________
2. Опишите двумерный
Обработка событий мыши. Регулировка прозрачности формы
Обработчики событий OnMouseDown и OnMouseUp определяют реакцию программы на соответственно нажатие и отпускание кнопки мыши, OnMouseMove –на перемещение указателя мыши на компо
Процедуры и функции вызова диалоговых окон
Процедура ShowMessage (‘<строка>’) отображающая окно с сообщением и кнопкой ОК. Пример: ShowMessage (‘До свидания!’)
Процедура ShowMessageFmt(‘Задано %d параметров и
Лабораторная работа №14
Пример: В теле процедуры запишем
Begin
…
if MessageDlg('Yo!',mtWarning,[mbYes, mbNo],0)=mrYes
then close;
end.
Работа с датой и временем
Тип TDateTime
Var t: TDateTime;
Для обработки даты и времени модуль SysUtils содержит следующие основные функции:
function Date: TDataTime;
Лабораторная работа №15
Рассмотрим пример, в котором числа 2006, 1, 1 выводятся в формате даты 1.1.2006.
var MyTime: TDateTime;
begin
MyTime := EncodeDate(2006, 1, 1);
Лабораторная работа №16
Задача: При нажатии на верхнюю спаренную кнопку выводится сообщение Up, на нижнюю – Down.
procedure TForm1.SpinButton1DownClick(Sender: TObject);
begin
Компоненты вкладки Dialogs
TOpenDialog – открытие файлов и TSaveDialog – сохранение файлов
Компоненты имеют идентичные свойства.
Свойство
Описание
Лабораторная работа №17
Программа для просмотра содержимого текстового файла.
1. На пустую форму нанести компонент TOpenDialog, кнопку TButton и многострочное поле TMemo.
2. При рабо
Контрольная работа
Вариант №1
1. Найти наибольшее из 3 чисел a, b, c.
2. Найти сумму чисел s=1/(p+2)+ 2/(p+2)+…+ p/(p+2)
3. Дана строка. Найти количество вхождений букв А.
4
Хотите получать на электронную почту самые свежие новости?
Подпишитесь на Нашу рассылку
Наша политика приватности обеспечивает 100% безопасность и анонимность Ваших E-Mail
Новости и инфо для студентов