Файл: пособие по программированию на ДЕЛЬФИ.doc

ВУЗ: Не указан

Категория: Не указан

Дисциплина: Не указана

Добавлен: 06.12.2024

Просмотров: 966

Скачиваний: 1

ВНИМАНИЕ! Если данный файл нарушает Ваши авторские права, то обязательно сообщите нам.

СОДЕРЖАНИЕ

Абдулгалимов г. Л.

Часть 2. Компоненты delphi

1. Компоненты страницы standard

2. Компоненты страницы additional

3.Компоненты страницы win 32

4. Компоненты страницы system

5. Компоненты страницы samples

Введение

ЧасТь 1 . Практикум по программированию в delphi Запуск и начало работы в среде delphi

Работа 1. Создание надписей и установка кнопок на форме

Работа 2. Ввод и обработка произвольных текстовых и числовых данных.

Работа 3. Создание главного и вспомогательного меню. Использование зависимых и независимых переключателей.

Работа 4. Создание и обработка табличных данных. Использование кнопок с фиксацией и с изображением

Var I:integer;

Работа 5. Создание и просмотр рисунков

Работа 6. Работа со списками, фигурами и регуляторами

Задачи для самоконтроля

Часть 2. Компоненты delphi

1. Компоненты страницы standard

1.1. TFrame - рама и шаблоны компонентов

1.2. TMainMenu - главное меню формы (программы)

1.3. TPopupMenu - вспомогательное (локальное) меню

1.7. TButton - кнопка

1.8. TCheckBox - независимый переключатель

1.11. TComboBox - раскрывающийся список выбора

1.12. TScrollBar - управление значением величины

1.13. TGroupBox - панель группирования

1.15. TPanel – панель

2. Компоненты страницы additional

2.1. TBitBtn - кнопка с изображением

2.2. TSpeedButton - кнопка для инструментальных панелей

2.3. TMaskEdit - специальный редактор

2.4. TStringGrid - таблица строк

2.5. TDrawGrid - произвольная таблица

2.6. TImage - отображение картинок

2.7. TShape - стандартная фигура

2.8. TBevel - кромка

2.10. TСheckListBox - группа независимых переключателей

2.11. TSplitter - компонент для изменения размеров

2.12. TStaticText - метка для отображения текста

2.13. TControlBar - инструментальная панель

3. Компоненты страницы win32

3.1. TTabControl - набор закладок

3.2. TPageControl - набор страниц с закладками

3.3. TImageList - хранилище изображений

3.4. TRichEdit - ввод и отображение rtf-текста

3.8. THotKey - ввод акселератора

3.10. TDateTimePicker - ввод и отображение даты/времени

3.12. TTreeView - дерево иерархии

3.13. TListView - список просмотра

3.15. TStatusBar - информационная панель

3.16. TToolBar и ToolButton - инструментальная панель и ее кнопки

3.17. TCoolBar и tCoolBand - инструментальная панель и полосы для нее

3.18. TPageScroller - панель с прокруткой

4. Компоненты страницы system

4.1. TTimer - таймер

4.2. TPaintBox - окно для рисования

4.3. TMediaPlayer - медиаплейер

5. Компоненты страницы samples

5.1. TGauge - индикатор величины

5.2. TColorGrid - выбор или отображение цвета

5.3. TSpinButton - спаренная кнопка

5.4. TSpinEdit - редактор для ввода целого числа

5.5. TDirectoryOutLine - отображение структуры каталогов

5.6. TCalendar - ввод и отображение даты

Приложения

1. Процедуры и функции для работы со строками

2. Пиктографические кнопки

Литература

5.2. TColorGrid - выбор или отображение цвета

Компонент предназначен для выбора и/или отображения цветов из 16-цветной палитры. Выбирать/отображать можно два цвета: основной и фоновый. Основной выбирается щелчком левой кнопки мыши и отображается символами fg, фоновый выбирается правой кнопкой и отображается символами bg (если оба цвета совпадают, соответствующая клетка таблицы помечается символами fb).

Свойства компонента:

BackgroundColor

Содержит выбранный фоновый цвет

BackgroundEnabled

Разрешает/запрещает выбор фонового цвета.

BackgroundIndex

Содержит индекс выбранного фонового цвета

ClickEnablesColor

Разрешает/запрещает выбор цветов

GridOrdering

Определяет конфигурацию таблицы

ForegroundColor

Содержит выбранный основной цвет

ForegroundEnabled

Разрешает/запрещает выбор основного цвета.

Foregroundlndex

Содержит индекс выбранного основного цвета

Selection

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

  Индекс цвета - это число в диапазоне О... 15, указывающее номер соответствующей ячейки в порядке перехода от самых темных цветов к самым светлым: 0 - ячейка с черным цветом, 1 - с коричневым, ..., 15 - с белым цветом.

Пары свойств BackgroundEnabled - ClickEnablesColor И ForegroundEnabled - ClickEnablesColor запрещают выбор и отображение соответствующего цвета только в том случае, когда каждое из них имеет значение False. Однако даже в этом случае свойство selection хранит номер ячейки таблицы, по которой последний раз был произведен щелчок левой или правой кнопкой мыши. Это свойство изменяется до возникновения события от мыши и при необходимости может использоваться для выбора цвета без его отображения. С помощью метода function ColorToIndex(AColor: TColor): Integer; программа может получить индекс табличного цвета, наиболее близкого к цвету AColor. Событие property OnChange: TNotifyEvent; возникает только при разрешенном выборе/отображении соответствующего цвета.



5.3. TSpinButton - спаренная кнопка

В отличие от компонента TUpDown компонент TSpinButton не связан с регулированием числовой величины и может использоваться просто как пара кнопок: верхняя (Op) и нижняя (Down). Для компонента следует написать обработчики его событий OnUpClick и OnDownClick, в которых реализуется реакция программы на щелчок по той или иной кнопке.

Рисунки на кнопках определяются свойствами UpGlyph и DownGiyph. Каждый рисунок может содержать 1, 2 или 3 изображения: 1-е - для нормальной кнопки, 2-е - для запрещенной, 3-е - для нажатой.

5.4. TSpinEdit - редактор для ввода целого числа

Компонент TSpinEdit предназначен для ввода/отображения числа. Он представляет собой комбинацию специализированного потомка однострочного редактора rcustomEdit и кнопок TSpinButton. Редактор способен вводить только числа (в этом и заключается его специализация), а кнопки используются для изменения числа на некоторую фиксированную величину.

Свойства компонента:

Button

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

EditorEnabled

Разрешает/запрещает использовать редактор для ручного ввода числа

Increment

Содержит число, на которое будет изменяться свойство value при нажатии кнопок TSpinButton

MaxValue

Содержит верхнюю границу диапазона возможных значений value

MinValue

Содержит нижнюю границу диапазона возможных значений value

Value

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

5.5. TDirectoryOutLine - отображение структуры каталогов

Компонент предназначен для отображения древовидной структуры каталогов. В отличие от TDirectoryListBox компонент отображает полную структуру каталогов, а не маршрут доступа к одному из них.

Компонент является наследником класса TCustomOutLine, и поэтому многие его свойства совпадают с аналогичными свойствами другого наследника этого класса компонента TOutLine. Свойство TextCase определяет высоту букв в именах каталогов: tcLowerCase - строчные буквы; tcUpperCase - заглавные буквы; tcAsis - строчные и заглавные буквы.


Следующие два свойства доступны только на этапе прогона программы: property Drive: Char; property Directory: TFileName; . Первое определяет выбранный диск, второе - выбранный каталог.

5.6. TCalendar - ввод и отображение даты

Компонент TCalendar отображает календарь на выбранный месяц и год. Его свойства Day, Month и Year могут содержать любую дату от 1 до 9999 года от Рождества Христова.

Свойства:

CalendarDate

Содержит выбранную дату

CellText[ACol, ARow]

Содержит текст в ячейке календаря на пересечении столбца ACol с рядом ARow (только для чтения)

Day

Определяет выбранный день месяца

GridLineWidth

Устанавливает толщину линий таблицы календаря

Month

Определяет выбранный месяц

Readonly

Если содержит True, пользователь не может выбрать другую дату

StartOfWeek

Определяет день недели, который будет отображаться в самом левом столбце таблицы

UseCurrentDate

Если содержит True, компонент будет показывать текущую системную дату

Year

Определяет выбранный год

Методы компонента:

procedure NextMonth;

Показывает календарь на следующий месяц

procedure NextYear;

Показывает календарь на следующий год

procedure PrevMonth;

Показывает календарь на предыдущий месяц

procedure PrevYear;

Показывает календарь на предыдущий год


Приложения

1. Процедуры и функции для работы со строками

Function AnsiLowerCase(const S: String ): String;

Возвращает исходную строку S, в которой все заглавные буквы заменены на строчные в соответствии с национальной кодировкой Windows (т. е. с учетом кириллицы)

Function AnsiUpperCase(const S: String ): String;

Возвращает исходную строку s, в которой все строчные буквы заменены на заглавные в соответствии с национальной кодировкой Windows

Function Concat(Sl [, S2, ..., SN]: String ): String;

Возвращает строку, представляющую собой сцепление строк-параметров S1, S2, ... , SN

Function Copy(St: String; Index, Count: Integer): String;

Копирует из строки St count символов, начиная с символа с номером Index

Procedure Delete(St: String; Index, Count:" Integer

Удаляет count символов из строки St, начиная с символа с номером index

Procedure Insert(SubSt: String; St, Index: Integer);

Вставляет подстроку SubSt в строку St, начиная с символа с номером Index

Function Length(St: String): Integer;

Возвращает текущую длину строки St

Function LowerCase(const S:String): String;

Возвращает исходную строку S, в которой все латинские заглавные буквы заменены на строчные

procedure OleStrToStrVar(Source: PWideChar; var Dest:String) ;

Копирует “широкую” (двухбайтную) строку в обычную строку Object Pascal

Function Pos(SubSt, St:String): Integer

Отыскивает в строке St первое вхождение подстроки SubSt и возвращает номер позиции, с которой она начинается. Если подстрока не найдена, возвращается ноль

Procedure SetLength(St:String; NewLength: Integer); 

Устанавливает новую (меньшую) длину NewLength строки St. если NewLength больше текущей длины строки, обращение к SetLength игнорируется

function StringOfChar(Ch:Char; Count: Integer):String;

Создает строку, состоящую из Count раз повторенного символа ch 

function StringToOleStr(const Source: String):PWideChar;

Копирует обычную строку в двухбайтную 

function StringToWideChar(const Source: String; Dest:PWideChar; DestSize: Integer) : PWideChar;

Преобразует обычную строку в строку с символами UNICODE

Function Uppercase(const S:String): String;

Возвращает исходную строку S, в которой все строчные латинские буквы заменены на заглавные

Подпрограммы преобразования строк в другие типы

Function StrToCurr(St: String): Currency;

Преобразует символы строки St в целое число типа Currency. Строка не должна содержать ведущих или ведомых пробелов

Function StrToDate(St: String): TDateTime;

Преобразует символы строки St в дату. Строка должна содержать два или три числа, разделенных правильным для Windows разделителем даты (в русифицированной версии таким разделителем является “.”). Первое число - правильный день, второе - правильный месяц.

Function StrToDateTime(St: String): TDateTime;

 

Преобразует символы строки St в дату и время. Строка должна содержать правильную дату (см. StrToDate) и правильное время (см. StrToTime), разделенные пробелом, например: StrToDateTime('28.06 18:23')

Function StrToFloat(St:String): Extended

Преобразует символы строки St в вещественное число. Строка не должна содержать ведущих или ведомых пробелов

Function StrToInt(St:String): Integer;

Преобразует символы строки St в целое число. Строка не должна содержать ведущих или ведомых пробелов

Function StrToIntDef(St:String; Default: Integer):Integer;

Преобразует символы строки St в целое число. Если строка не содержит правильного представления целого числа, возвращается значение Default

Function StrToIntRange(St:String; Min, Max: Longint):Lomgint;

Преобразует символы строки St в целое число и возбуждает исключение ERangeError, если число выходит из заданного диапазона Min.. .мах

Function StrToTime(St:String): TDateTime;

 

Преобразует символы строки St во время. Строка должна содержать два или три числа, разделенных правильным для Windows раздели телем времени (для русифицированной версии таким разделителем является “:”).

Procedure Val(St: String; var X; Code: Integer);

Преобразует строку символов St во внутреннее представление целой или вещественной переменной х, которое определяется типом этой переменной.

Подпрограммы обратного преобразования

Function DateTimeToStr(Value: TDateTime): String; Procedure DateTime-ToString(var St: String; Format: String;- Value: TData-Time);

Преобразует дату и время из параметра в строку символов Преобразует дату и время из параметра value в строку St в соответствии со спецификаторами параметра Format (см. пояснения ниже)

Function DateToStr(Value: TDateTime): String;

Преобразует дату из параметра value в строку символов

Function FloatToStr(Value: Extended): String;

Преобразует вещественное значение value в строку символов.

Function FloatToStrF(Value: Extended; Format: TFloatPormat; Precision, Digits: Integer) : String;

Преобразует вещественное значение Value в строку символов с учетом формата Format и параметров precision и Digits (см. пояснения ниже).

Function Format(const Format: String; const Args: array of const): Strings;

Преобразует произвольное количество аргументов открытого массива Args в строку в соответствии с форматом Format (см. пояснения ниже)

Function FormatDateTime (Format: String; Value:.TDateTime): String;

Преобразует дату и время из параметра value в строку символов в соответствии со спецификаторами параметра Format (см. пояснения ниже)

Function FormatFloat(Format:String; Value: Extended): String;

Преобразует вещественное значение value в строку символов с учетом спецификаторов формата Format (см. пояснения ниже)

function IntToHex(Value: Integer; Digits: Integer):Strings;

Преобразует целое число Value в строку символьного представления шестнадцатеричного формата: Digits - минимальное количество символов в строке

Function IntToStr(Value: Integer) : String;

Преобразует целое значение Value в строку символов

Procedure Str(X [:Width[:Decimals]]; var St:String) ;

 

Преобразует число х любого вещественного илицелого типов в строку символов St; параметры width и Decimals, если они присутствуют, задают формат преобразования:

Function TimeToStr(Value: TDateTime): String;

Преобразует время из параметра Value в строку символов