 |
Компонент TMediaPlayer - медиаплейер
|
|
|
|
Назначение и порядок применения компонентов TForm, TCheckBox, TMediaPlayer, TDBEdit: основные свойства и методы.
Компонент TForm
Хотя компонент TForm отсутствует в палитре компонентов, но все же имеет присущие для него свойства, события. Компонент TForm это окно в оконном приложении. Оно может быть минимум одно, максимальное ограничение на количество не накладывается. Первое созданное окно в приложении автоматически становится главным. При закрытии главного окна приложение завершает свою работу и занимаемая им память освобождается.
Если необходимо, чтобы главное окно формы автоматически не появлялось на экране, то в событии OnCreate для этого окна необходимо указать следующую строку:
Application.ShowMainForm:=false;
В этой команде указывается, что в этом приложении запрещено отображение главной формы (окна). В этом случае программисту нужно самостоятельно вызывать команду Form1.Show;
для отображения этого окна. Здесь Form1 – главное окно приложения.
Данный метод может оказаться полезным для вывода запроса пароля на запуск программы.
Именно это диалоговое окно нужно показать пользователю перед показом главного окна, но не делая его главным окном, т.е. при закрытии окна ввода пароля, приложение не завершает свою работу. И при вводе неверного пароля можно без проблем завершить работу программы командой
Form1.Close; Или дать команду завершения работы приложения.
Каждый компонент в программе, как и сама форма, имеет уникальное имя, указанное в свойстве Name. Заголовок окна содержится в свойстве Caption. По заголовку окна пользователь узнает о функциональном назначении программы или текущего окна.
Кроме заголовка в верхней части окна находится иконка и кнопки управления состоянием. По умолчанию иконка такая же самая, как и иконка в проекте. Чтобы сменить иконку в текущем окне необходимо в инспекторе объектов выбрать свойство Icon в котором выбрать соответствующий файл-рисунок. Файл должен быть с расширением ICO.
|
|
|
Для того, чтобы сменить иконку в проекте, нужно войти в меню "Project", далее "Options...", на вкладке Application вы видите текущий рисунок файла проекта. Сменить его можно кнопкой "Load Icon...". Иконка проекта хранится в файле ресурсов с расширением RES.
Свойство BorderStyle
bsDialog – У окна нет иконки. Отображена только кнопка управления "Закрыть". Размер окна постоянный. Такой тип окон применяется чаще всего в диалоговых окнах, например окно запроса на сохранения проекта, если вы пытаетесь выйти из delphi не сделав сохранения.
bsNone – У окна нет иконки, кнопок управления, заголовка. Размер окна постоянный. Закрыть такое окно можно только программно или с помощью комбинации клавиш Alt+F4. Этот тип окон применяется в заставке при запуске программы. На окне расположен компонент TImage, который содержит рисунок.
bsSingle – В окне присутствует иконка, есть заголовок. Кнопки управления свернуть, развернуть (восстановить), закрыть. Размер окна постоянный.
bsSizeable – Тип окна по умолчанию. Имеет все элементы, указанные в предыдущем значении свойства плюс изменение размеров окна.
bsSizeToolWin – Этот тип окна установлен в окне инспектора объектов. Такое окно не имеет иконки, есть заголовок, кнопка управления "закрыть". Можно изменять размер окна.
bsToolWindow – Аналогичный предыдущему значению, за исключением того, что нельзя изменять размеры окна.
Все вышеописанные типы свойства BorderStyle устанавливаются только для работающего приложения, т.е. мы видим изменения в оформлении окна только после запуска программы.
Свойство BorderIcons
Это свойство является вложенным. Т.е. если вы в инспекторе объектов нажмете на знак +, то откроется еще несколько подсвойств. Свойство BorderIcons имеет смысл устанавливать только в соответствующих значениях свойства BorderStyle.
|
|
|
biSystemMemu – указывает, отображать или нет иконку и кнопки управления окном.
biMinimize – отображать или нет кнопку управления "свернуть".
biMaximize – отображать или нет кнопку "развернуть" ("восстановить").
biHelp – отображать или нет кнопку "помощь".
Возможны два значения для этих свойств: true (истинно) и false (ложно).
Свойство Position
poDefault – Windows само определяет размер и положение окна.
poDefaultPosOnly – произвольное положение окна.
poDefaultSizeOnly – только произвольный размер окна.
poDesigned – такой-же размер и положение, кокой был при разработке. Значение по умолчанию. Вам следует знать, что не на всех компьютерах установлено такое же экранное разрешение, какое есть у вас, и значит окна в программе будут находиться в совершенно другом месте.
poDesktopCenter – окно находится в центре экрана.
poScreenCenter – окно находится в центре экрана. Работает с многодисплейным режимом отображения.
Свойство WindowState
wsMaximized – Окно первоначально будет развернуто во весь экран.
wsMinimized – Окно первоначально будет свернуто в значок.
wsNormal – Окно имеет те же размеры, что и во время разработки. Значение по умолчанию.
Компонент CheckBox
CheckBox представляет собой сочетание небольшого окошка, которое и визуализирует наличием или отсутствием "галочки" состояние компонента, и компонента Label - заголовка, поясняющего назначение переключателя.
| Основное свойство компонента CheckBox - Checked типа Boolean. То есть, на приведённом рисунке CheckBox1.Checked = False; CheckBox2.Checked = True; Свойство Checked доступно как для считывания, так и для записи, то есть, добиться такого как на рисунке вида компонентов Delphi CheckBox можно так: CheckBox1.Checked:= False; CheckBox2.Checked:= True; |
Главным образом, компонент Delphi CheckBox применяется в условных операторах, и помогает сформировать условия выбора того или иного действия в программе.
Компонент Delphi CheckBox - независимый переключатель, то есть в группе из нескольких компонентов каждый из них может быть установлен в произвольное состояние, независимое от состояния остальных компонентов группы (в отличие от компонента Radiobutton).
Помимо свойства Checked, позволяющего управлять состоянием компонента, у Delphi CheckBox есть свойство State (состояние), которое может иметь уже три значения. Первые два значения cbChecked ("отмечено") и cbUnChecked ("не отмечено"), а третье - cbGrayed ("не определено" или "не знаю") становится доступным для выбора если установить в True свойство AllowGrayed компонента. Свойства Checked и State связаны между собой:
|
|
|
если свойство State равно cbChecked, свойство Checked = True; если свойство State равно cbUnchecked или cbGrayed, свойство Checked = False. При щелчке мышкой эти три состояния сменяют друг друга в следующей последовательности:
| |||
Расположением текста в компоненте Delphi CheckBox также можно управлять. Для этой цели служит свойство Alignment, принимающее значения:
| |||
Компонент TMediaPlayer - медиаплейер
Компонент TMediaPlayer представляет собой набор кнопок, предназначенных для управления различными мультимедийными устройствами (компакт-дисками, звуковыми картами и т. п.).
Если компьютер оснащен звуковой картой, вставьте этот компонент в пустую форму, в его свойство FileName поместите название любого файла с расширением WAV (из каталога с: | winsows | media), установите в свойство Autoopen компонента значение True и запустите программу - после щелчка мышью по кнопке 
вы услышите звучание выбранного музыкального фрагмента. Как видите, использование компонента предельно просто. Он автоматически распознает тип мультимедийного устройства по расширению файла и берет на себя управление этим устройством. Разумеется, в каждый момент времени компонент может управлять лишь одним устройством, однако с помощью изменения содержимого FileNameили явно с помощью свойства DeviceType программа может менять устройство, связанное с компонентом.
Каждая кнопка компонента имеет собственное имя, позволяющее программисту сделать какую-либо кнопку невидимой или недоступной. В следующей таблице приводится имя и назначение каждой кнопки (под носителем информации подразумеваются файлы и физические устройства, которые могут служить источником или приемником информации).
|
|
|
 btStop
| Останавливает запись или воспроизведение |
 btNext
| Позиционирует устройство на следующую дорожку или в конец носителя информации, если устройство не имеет дорожек |
 btPrev
| Позиционирует устройство на предыдущую дорожку или в начало носителя информации, если устройство не имеет до |
 btStep
| рожек Позиционирует устройство на один блок кадров ближе к концу носителя информации. Количество кадров в блоке |
 btBack
| содержится в свойстве Frames компонента Позиционирует устройство на один блок кадров ближе к началу носителя информации |
 btRecord
| Начинает запись в носитель информации |
 btEject
| Освобождает устройство от носителя информации |
| btPlay
| Запуск |
 btPause
| Пауза |
Свойства компонента:
| property EnabledButtons: TButtonSet; | Содержит множество доступных кнопок (тип TButtonSet описан выше для свойства ColoredButtons) |
| property EndPos: Longint; | Содержит положение носителя информации в момент прекращения записи или воспроизведения. Переустановка значения приводит к повторению записи или воспроизведения |
| property Error: Longint; | Содержит код ошибки. Доступно только для чтения |
| property ErrorMessage: String; | Содержит сообщение об ошибке. Доступно только для чтения |
| property FileName: String; | Содержит имя читаемого или записываемого файла |
| property Frames: Longing; | Определяет количество кадров, пропускаемых при выполнении методов step или Back |
| property Length: Longint; | Содержит текущую длину носителя информации. Доступно только для чтения |
| TMPModes = (mpNotReady,-ipStopped, mpPlaying, mpRecord- ing, mpSeeking, mpPaused, -npOpen); property Mode: TMPModes; | Показывает текущее состояние мультимедийного устройства: mpNotReady - не готово; mpStopped - остановлено; mpPlaying - воспроизводит информацию; mpRecording -записывает информацию; mpSeeking - перемещает носитель информации; mpPaused - Приостановлено; mpOpen - от крыто. Доступно только для чтения |
| property Notify: Boolean; PNotifyValues = (nvSuccessful, Superseded, nvAborted, nvFailre); | Содержит True, если методы Back, Close, Eject, Next, Open, Pause, PauseOnly, Play, Previous, StartRecording, Resume, Rewind, Step и Stop будут создавать событие OnNotify Содержит результат последней команды, создающей событие OnNotify: nvSuccessful - выполнена успешно; nvSuperseded |
| property NotifyValue: TMPNotify; Values; | заменена другой командой; nvAborted досрочно прервана; nvFailure - завершилась ошибкой. Доступно только для чтения |
| property Position: Longint; | Содержит текущую позицию носителя информации |
| property Shareable: Boolean; | Разрешает/запрещает другим компонентам и программам использовать устройство, связанное с данным компонентом |
| property Start: Longing; | Содержит позицию от начала носителя, с которой начинается запись или воспроизведение. Определяется в момент открытия устройства и доступно только для чтения |
| property StartPos: Longint; | Содержит текущую позицию от начала носителя, с которого начинается запись или воспроизведение |
| TMPTimeFormats = (tfMilliseconds, tfHMS, tfMSF, tfFrames,tfSMPTE24, tfSMPTE25, tfSMPTESO,tfSMPTE30Drop, tfBytes, tfSam ples, tfTMSF);property TimeFormat: TMPTimeFor mats; | Определяет формат представления данных в свойствах StartPos, Length, Position, Start и Endpos (см. пояснения ниже) |
| property TrackLength[TrackNum: Integer]: Longint; | Возвращает длину (в формате TimeFormat) дорожки с индексом TrackNum. Доступно только для чтения |
| property TrackPosition[TrackNum: Integer]: Longint | Возвращает стартовую позицию (в формате TimeFormat) дорожки С индексом TrackNum. Доступно только для чтения |
| property Tracks: Longint; | Содержит количество дорожек в открытом устройстве. Доступно только для чтения |
| property VisibleButtons: TButtonSet; | Содержит множество видимых кнопок (тип TButtonSet описан выше для свойства ColoredButtons) |
| property Wait: Boolean; | Если содержит True, управление возвращается в программу только после завершения перехода устройства в другое состояние, связанное с методами Back, Close, Eject, Next, Open, Pause, PauseOnly, Play, Previous, StartRecording, Resume, Rewind, Step или Stop |
Если свойство AutoEnabie имеет значение True, компонент автоматически по типу устройства или расширению файла и значению свойства Mode определяет, какие кнопки будут доступны пользователю. Если AutoEnabie=Faise, доступными будут только те кнопки, которые входят в множество EnabiedButtons. Множество Enabied-
|
|
|
Buttonsигнорируется, если AutoEnable=True.
Свойство AutoRewind игнорируется, если устройство имеет дорожки или если процесс записи/воспроизведения вызван изменением значения в свойстве StartPos или Endpos.
Положение носителя В свойствах StartPos, Length, Position, Start и EndPos В Зависимости от значения свойства TimeFormat должно интерпретироваться следующим образом (отсчет ведется от начала носителя информации):
| tfMilliseconds | Миллисекунды в диапазоне от 0 до 4 294 967 295 Часы, минуты, секунды. |
| tfHMS | Занимают в порядке перечисления по одному байту начиная с младшего. Старшин байт Longint не используется |
| tfMSF | Минуты, секунды и кадры. Занимают в порядке перечисления по одному байту начиная с младшего. Старший байт Longint не используется |
| tfFrames | Кадры в диапазоне от 0 до 4 294 967 295 |
| tfSMPTE24 | Часы, минуты. секунды и количество блоков по 24 кадра в секунду. Занимают в порядке перечисления по одному байту начиная с младшего |
| tfSMPTE25 | Часы, минуты, секунды и количество блоков по 25 кадров в секунду |
| tfSMPTE30 | Часы, минуты, секунды и количество блоков по 30 кадров в секунду |
| tfSMPTE30Drop | Часы, минуты, секунды и количество пропущенных блоков по 30 кадров в секунду |
| tfBytes | Байты в диапазоне от 0 до 4 294 967 295 |
| tfSamples | Количество условных блоков информации в диапазоне от 0 до 4294967295 |
| tfTMSF | Дорожки, минуты, секунды и кадры. Занимают в порядке перечисления по одному байту начиная с младшего |
Свойство TimeFormat недоступно из окна Инспектора объектов и устанавливается автоматически при открытии мультимедийного устройства методом open. В связи с этим значения в свойствах StartPos, Position и EndPos могут устанавливаться, а в свойствах Length, Start, TrackLength И TrackPosition Становятся действительными только после вызова СPеn.
Методы компонента:
| procedure AutoButtonSet(Btn: TMPBtnType); dynamic; | Реализует разрешение/запрещение кнопок компонента при установке в свойство AutoEnable значения True Перемещает текущую позицию в носителе информации назад на количество кадров, содержащихся В свойстве Frames |
| procedure Back; | По умолчанию вызывает обработчик события OnClick. |
| procedure Click(Button: TMPBtnType; var DoDefault: eoolean); dynamic; | Предназначен для перекрытия в потомках |
| procedure Close; | Закрывает связанное с компонентом устройство |
| procedure DoNotify; dynamic; | По умолчанию вызывает обработчик события OnNotify. Предназначен для перекрытия в потомках |
| procedure Eject; | Выгружает носитель информации из устройства |
| procedure MMNotify(var Message: TMessage); message:MCINOTIFY; | Реализует отклик на сообщение Windows мм mcinotify. По умолчанию вызывает метод DoNotify |
| procedure Next; | Перемещает текущую позицию носителя на начало следующей дорожки, а если устройство не имеет дорожек - в конец носителя |
| procedure Notification (AComponent: TComponent; Operation: TOperation); override; | Извещает компонент AComponent о том, что завершилась операция Operation |
| procedure Open; | Открывает мультимедийное устройство |
| procedure Pause; | Приостанавливает процесс воспроизведения или записи информации. Если устройство уже было приостановлено, восстанавливает процесс с помощью вызова метода Resume |
| procedure PauseOnly; | Приостанавливает процесс воспроизведения или записи информации. Если устройство уже было приостановлено, ничего не делает |
| procedure Play; | Начинает воспроизведение с позиции StartPos, а если это свойство не установлено - с текущей позиции position |
| procedure PostClick (Button: TMPBtnType); dynamic; | Реализует отклик на событие OnPostClick. По умолчанию вызывает соответствующий обработчик события |
| procedure Previous; | Перемещает текущую позицию носителя на начало предыдущей дорожки, а если устройство не имеет дорожек - в начало носителя |
| procedure Resume; | Восстанавливает процесс записи или воспроизведения. Вызывается при повторном щелчке по кнопке btPause |
| procedure Rewind; | Перемещает текущую позицию носителя к положению, определяемому свойством Start |
| procedure Save; | Сохраняет информацию в файле с именем FileName |
| procedure StartRecording; | Начинает запись информации с текущей позиции или позиции StartPos |
| procedure Step; | Перемещает текущую позицию в носителе информации вперед на количество кадров, содержащихся В свойстве Frames |
| procedure Stop; | Прекращает запись или воспроизведение информации |
| Для компонента определены следующие события: | |
| EMPNotify = procedure (Sender: TObject; Button: TMPBtnType; var DoDefault: Boolean) of object; property OnClick: EMPNotify; | Возникает после щелчка по кнопке Button компонента. Если DoDefault=True, вызывается метод, связанный с этой кнопкой |
| property OnNotify: TNotifу Event; | Возникает после завершения вызова одного из методов Back, Close, Eject, Next, Open, Pause, PauseOnly, Play, Previous, Resume, Rewind, StartRecording, Step или Stop,если свойство Notify имеет значение True |
| EMPPostNotify = procedure (Sender: TObject; Button: TMPBtnType) of object; property OnPostClick: EMPPost-Notify; | Если wait=True, событие OnPostClick возникает только после завершения соответствующей операции, вызванной событием OnClick, в противном случае - немедленно после OnClick |
Компонент TDBEdit
Страница Палитры компонентов Data Controls
Предназначен для отображения и редактирования заданного поля текущей записи набора данных. Наследует многие свойства и методы компонента TEdit. Редактирование данных возможно при следующих значениях свойств связанного компонента TDataSource: State = dsEdit; CanModify = True.
Свойство компонента
| IsMasked: Boolean; | Определяет использование шаблона при редактировании данных. |
|
|
|
