34650

Страница System

Реферат

Информатика, кибернетика и программирование

Пиктограмма Имя Назначение Timer Таймер. Timer Компонент DelphiTimer очень простой компонент который не виден на экране но тем не менее TimerDelphi выполняет очень важные функции в программе. DelphiTimer позволяет вводить необходимые задержки между выполнением тех или иных действий.

Русский

2013-09-08

215.58 KB

0 чел.

Страница System

На этой странице представлены компоненты, которые имеют различное функциональное назначение (например,Timer- очень важный в любой программе компонент), в том числе компоненты, поддерживающие стандартные дляWindowsтехнологии межпрограммного обмена данными OLEиDDE.

Пикто-
грамма

Имя

Назначение

Timer

Таймер. Этот компонент служит для отсчёта интервалов реального времени. Имеет ограничение - не может обрабатывать интервалы менее 55 миллисекунд.

PaintBox

Окно для рисования. Создаёт прямоугольную область, предназначенную для прорисовки графических изображений.

MediaPlayer

Мультимедийный проигрыватель. С помощью этого компонента можно управлять различными мультимедийными устройствами.

OleContainer

OLE-контейнер. Служит приёмником связываемых или внедряемых объектов.

DDEClientConv

DDE-связь. Совместно с DDEClientItem используется для создания клиентской программы в DDE-связи.

DDEClientItem

DDE-тема. Определяет тему DDE-связи в клиентском приложении.

DDEServerConv

DDE-связь. Совместно с DDEServerItem используется для создания серверной программы в DDE-связи.

DDEServerItem

DDE-тема. Определяет тему DDE-связи в серверном приложении.

Timer

КомпонентDelphiTimerочень простой компонент, который не виден на экране, но, тем не менее,TimerDelphiвыполняет очень важные функции в программе.DelphiTimerпозволяет вводить необходимые задержки между выполнением тех или иных действий.

КомпонентTimerимеет всего четыре свойства и одно событие, и работать с компонентомDelphiTimerочень просто.

СВОЙСТВО

НАЗНАЧЕНИЕ

Enabled

"Включение-выключение" таймера

Interval

Интервал срабатывания (в миллисекундах)

Name

Имя компонента в программе

Tag

Произвольный числовой параметр

Помещаем компонентDelphiTimerна Форму. Задаём в свойстве Interval нужный интервал времени (измеряется в миллисекундах). Переходим на вкладкуEventsи видим единственное событие, поддерживаемое компонентом DelphiTimer:OnTimer. Выполнив по нему двойной щелчёк, или также двойной щелчёк по самому компоненту, мы попадём в сформированный средой Delphi обработчик события, где и введём код, предусматривающий выполнение тех или иных действий.Так как по умолчанию сойствоEnabledустановлено вTrue, то в программе через установленный в свойствеIntervalпромежуток времени таймер сработает, то есть выдаст событиеOnTimer. Будут выполнены необходимые действия. Иногда же запланированные действия должны произойти не автоматически при старте программы, а при выполнении каких-либо других действий. В этом случае необходимо свойствоEnabledв Инспекторе Объектов установить вFalse. Затем в необходимый момент нужно выполнить команду:

Timer1.Enabled:=True;

Учтите, что покаTimer1.EnabledравноTrue, компонент продолжит генерировать событиеOnTimerпо истечении каждого промежутка времени, равного значению свойcтва Interval. Поэтому, если нужно только единичное срабатывание, то таймер нужно остановить, причём сразу же:

ProcedureTForm1.Timer1Timer(Sender: TObject);

begin

Timer1.Enabled:=False;

{ Необходимые действия }

end;

Если же запрограммировать "выключение" таймера после выполнения предусмотренных в программе действий, то при достаточно малом по сравнению с продолжительностью необходимых действий значении свойства Interval таймер вновь сработает, и это может помешать ходу программы. Компонент DelphiTimer не является очень точным и не подходит для измерения малых промежутков времени. Его точность порядка 50 миллисекунд. В качестве примера приведу простую программу, отображающую текущее время.На форме будут только компонент Labelи собственно наш компонентDelphiTimer. Свойство Timer можно оставить равным 1000, но раньше на более медленных компьютерах приходилось отображать время несколько раз в секунду, так как из-за влияния других выполняемых компьютером процессов выводимые раз в секунду показания "плавали", что было хорошо заметно на глаз. Размер шрифта возьмём побольше - 50, и подберём более гладкий, я взял Bell MT. Растянем на всю Форму:Align=alClient. Нуи, собственно, самкод:

procedure TForm1.Timer1Timer(Sender: TObject);

begin

  Label1.Caption:=TimeToStr(Now);

end;

Вотивсё! DelphiNow- это системная функция, возвращающая текущую дату-время в соответствующем форматеTDateTime. Если преобразовывать её в строку функциейTimeToStr, то она вернёт текущее время, еслиDateToStr, то текущую дату. Если мы хотим отображать в нашей программе и дату тоже, достаточно поставить ещё один компонентLabel, и функциейDateToStrпередавать в него дату.

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

Назначение компонента TPaintBox - дать вам простое окно с канвой для рисования произвольных изображений. Канва содержится в свойстве Canvas компонента, графические инструменты - в свойствах Font, pen и Brush, а собственно рисование осуществляется в обработчике события OnPaint. Особенности использования этих инструментов см. в п. 16.4. Например, следующий обработчик создаст окно, показанное на рис. 18.35:

procedureTFormI.PaintBoxIPaint(Sender: TObject);

var

 X, Y: Integer;

begin

withPaintBoxl, Canvas do

begin

Brush.Color := cIRed;

     Ellipse (0, 0, Width, Height);

Font.Name := 'Arial';

Font.Size := Height div 5;

Font.Style := [fsBold, fsltalic];

Font.Color := clWhite;

X := (Width - TextWidth('Delphi')) div 2;

Y := (Height - TextHeight('D')) div 2;

TextOut(X, Y, 'Delphi')

end

end;

При повторении примера положите на пустую форму компонент

TPaintBox И установите его размеры: Height = 100/ Width = 300. 

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

Компонент TMediaPlayer представляет собой набор кнопок (рис. 18.36), предназначенных для управления различными мультимедийными устройствами (компакт-дисками, звуковыми картами и т. п.).

Если ваш компьютер оснащен звуковой картой, вставьте этот компонент в пустую форму, в его свойство FileName поместите название любого файла с расширением WAV (из каталога с: | winsows | media), установите в свойство Autoopen компонента значение True и запустите программу - после щелчка мышью по кнопке  вы услышите звучание выбранного музыкального фрагмента. Как видите, использование компонента предельно просто. Он автоматически распознает тип мультимедийного устройства по расширению файла и берет на себя управление этим устройством. Разумеется, в каждый момент времени компонент может управлять лишь одним устройством, однако с помощью изменения содержимого FileName или явно с помощью свойства DeviceType программа может менять устройство, связанное с компонентом.

Каждая кнопка компонента имеет собственное имя, позволяющее программисту сделать какую-либо кнопку невидимой или недоступной. В следующей таблице приводится имя и назначение каждой кнопки (под носителем информации подразумеваются файлы и физические устройства, которые могут служить источником или приемником информации). 


 

А также другие работы, которые могут Вас заинтересовать

77249. Глазодвигательный, блоковый, отводящий нервы. Медиальный продольный пучок 14.76 KB
  oculomotorius IIIсмешанный: Ядра серое вещество среднего мозга: N. ciliris Место выхода из мозга foss interpedunculris 3 Место выхода из черепа fissur orbitlis superior. trochleris IV двигательный: Ядрасерое вещество среднего мозга: N.obliquus superior 2 Место выхода из мозга сбоку от velum medullre superius.
77252. Тройничный нерв, его ядра, корешки, узел. Третья ветвь тройничного нерва 42.16 KB
  tensor tympni m. lingulis В области основания черепа присоединяет chord tympni преганглионарные парасимпатические волокна от n. lingules общая и вкусовая за счёт chord tympni чувствительность передних 2 3 языка rr. sublingules к подъязычной и поднижнечелюстной слюнным железам слизистой оболочке дна полости рта десне нижней челюсти chord tympni заканчивается на gg.
77253. Лицевой нерв, его ядра, ганглии и ветви 42.5 KB
  Через metus custicus internus в cnlis n. petrosus mjor парасимпатический ответвляется на уровне коленца идёт в cnlis n. petrosi mjoris через hitus cnlis n. petrosi mjoris до formen lcerum откуда идёт через cnlis pterygoideus где к нему присоединяется симпатический n.
77254. Языкоглоточный нерв, n. glossopharyngeus 237.4 KB
  Последняя связана с иннервацией желобоватых сосочков. По ходу от языкоглоточного нерва отходят боковые ветви. tympnicus смешанный отходит от языкоглоточного нерва наиболее краниально на уровне нижнего узла. croticotympnici из внутреннего сонного сплетения а также соединительная ветвь от лицевого нерва.
77255. Блуждающий нерв, п. vagus 17.93 KB
  В его пределах имеются две ветви. В этом отделе имеются следующие ветви. Глоточные ветви rmi phryngei смешанные по составу волокон двигательные чувствительные преганглионарные парасимпатические. Двигательные ветви из этого сплетения иннервируют констрикторы глотки а также мышцы мягкого нёба за исключением tensor veli pltini.
77257. Вегетативная НС. Ее отличия от анимальной НС 2.28 MB
  ВНС Центральный отдел Периферический отдел надсегментарные центры: вегетативные нервные волокна ядра гипоталамуса ретикулярная вегетативные ганглии формация мозжечок лимбическая вегетативные сплетения система кора полушарий...