Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Раб.тетрадь_алг211С118.10..docx
Скачиваний:
1
Добавлен:
20.11.2019
Размер:
144.6 Кб
Скачать

Задание1. Указать назначение команд

uses

Forms,vrun1 in 'vrunl.pas' {Form1};

{$R *.res}

begin

Application.Initialize;

Application.CreateForm(TForm1, Form1);

Application.Run;

end.

Object Form1:TForm1

Left = 193

Top = 246

Width = 544

Height = 375

Caption = 'Form1'

Color = clBtnFace

Font.Charset = DEFAULT_CHARSET

Font.Color = clWindowText

Font.Height = -11

Font.Name = 'MS Sans Serif'

Font.Style = [ ]

OldCreateOrder = False

PixelsPerInch = 96

TextHeight = 13

End.

Unit Unit1;

Interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls;

type

TForm1 = class(TForm)

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

Задание 2. Каково назначение файлов проекта

DOF-файл

DPR-файл

RES-файл

DFM-файлы

PAS-файлы

CFG-файл

Тема 2.3. Визуальное событийно-управляемое программирование

Занятие 1 Текстовые компоненты интегрированной среды назначение, свойства, события:TEdit, TMemo, TLabel

ЗАДАНИЕ 1. Указать компонент и свойство

Указывает, будет ли компонент изменять свои размеры в зависимости от помещенного в ее свойство Caption текста (True - будет)

Определяет выравнивание текста по вертикали относительно границ

Определяет прозрачность фона

Разрешает/запрещает разрыв строки на границе слова. Для вывода многострочных надписей задайте

Используется для ввода паролей

Определяет автоматическое преобразование высоты букв

Если содержит True, текст не может изменяться

Определяет максимальную длину текстовой строки.

Содержит длину выделенной части текста

Содержит номер первого символа выделенной части текста

Содержит выделенный текст

Содержит редактируемый текст. Используется для построчного доступа. Методы Add, Delete, Insert используются для добавления, удаления и вставки строк

Определяет наличие в окне редактора полос прокрутки

ввода текста, соответствующего некоторому шаблону

Определяет ориентацию компонента: sbHorizontal - бегунок перемещается по горизонтали; sbVertical - бегунок перемеща­ется по вертикали

«Большой» сдвиг бегунка (при щелчке мышью рядом с концевой кнопкой)

Максимальное значение диапазона изменения числовой величины

Минимальное значение диапазона изменения числовой величины

Текущее значение числовой величины

Задание 2 . Каков смысл команды?

Label3.Caption:=IntToStr(n);

x:=StrToFloat(Edit1.Text);

Memo1.Lines.Add(' max='+FloatToStrF(ma,ffGeneral,8,2));

Занятие 2 Процедуры ввода и редактирования текста: InputBox, MessageBox, MessageDialog

Задание 1

Вывести сообщение , используя процедуру ShowMessage

Площадь 25м2

Задание 2 Осуществить ввод значения переменной S, используя процедуру InputBox

Задание 3

Вывести сообщение, используя процедуру MessageDlg : информационное сообщение, набор кнопок Yes, No, Cancel. Какой код будет возвращен , если нажать кнопку Yes?

Задание 4

Вывести сообщение , используя процедуру MessageBox, набор кнопок Retry, Cancel. Какой код будет возвращен , если нажать кнопку Retry?

Занятие 3 Текстовые компоненты интегрированной среды и процедуры ввода и редактирования текста: назначение, свойства, события. TListBox, TStringGrid, TCombobox

ЗАДАНИЕ 1. Указать компонент и свойство

Определяет количество колонок элементов в списке

Содержит индекс сфокусированного элемента.

Содержит набор строк, показываемых в компоненте

Разрешает/отменяет сортировку строк в алфавитном порядке

Содержит номер столбца сфокусированной ячейки

Содержит количество столбцов таблицы

Определяет количество столбцов фиксированной зоны

Определяет количество рядов фиксированной зоны

Содержит параметры таблицы

Содержит номер ряда сфокусированной ячейки

Содержит количество рядов таблицы

Разрешено редактирование ячейки.

Разрешено выбирать ячейки клавишей Tab (Shifts-Tab)

Определяет содержимое ячейки с табличными координатами (ACol.ARow)

Содержит все строки ряда с индексом Index

Задание 2 . Каков смысл команды?

  1. StringGrid1.Cells[0,i]:=' i= '+IntToStr(i);

2.StringGrid1.ColCount:=N+1;

3. StringGrid1.RowCount:=N+1;

4. N:= ListBox1. ItemIndex

5. ListBox1. Items.Add(ListBox1. Item[i]);

Занятие 4 Кнопки : назначение, свойства, события. TButton, TBitBtn, TSpeedButton, TRadioButton

ЗАДАНИЕ 1. Указать компонент и свойство

Если имеет значение True, событие OnClick кнопки возникает при нажатии клавиши Esc

Если имеет значение True, событие OnClick кнопки возникает при нажатии клавиши Enter

Если имеет значение False, то кнопка недоступна для нажатия

Определяет результат, с которым было закрыто модальное окно

разновидность стандартной кнопки TButton, которая помимо текста может содержать графическое изображение

mrXXX: bkOk -mrOk,

Определяет связанные с кнопкой растровые изображения

Определяет разновидность кнопки

Определяет край кнопки, к которому прижимается пиктограмма

предусмотрен вывод надписи, имеется возможность фиксации в утопленном состоянии , не может закрыть модальное окно.

Задание 2 . Каков смысл команды?