Компонент письменной форме, часть 3

Компонент письменной форме, часть 3

Компонент письменной форме, часть 3 : Несколько тысяч советов, которые сделают вашу жизнь проще.

эта статья является заключительной из трех частей статьи на компоненты. Эта заключительная часть будет охватывать собственность / редакторы компонент, как написать специальную редакцию для компонент / свойство, и как пишут "скрытые" компоненты.<р класса="step_content ">
<границы таблицы="1"><элемента tbody><тр><тд> эта статья первоначально появилась в Delphi разработчика<р класса="step_content "> Авторское право шедевре издание, Инк. Все права защищены. <р класса="step_content "> пользовательские редакторы компонентов
и как только мы начинаем писать дополнительные типы свойств для нашего компонентов, жизнь становится немного сложнее. Хотя инспекторе объектов, встроенная в Delphi способна распознавать большинство типов недвижимости, это невозможно, чтобы быть в состоянии иметь дело со всеми возможными пользовательский Тип мы можем писать в наших компонентов. Иногда инспекторе объектов не может справиться с нашими пользовательских типов, но монтаж такого сложного комплекса свойств в инспекторе объектов просто не достаточно понятный. Именно в этот момент мы можем быть обязаны писать собственность / редакторы компонентов. Делфи уже множество стандартных редакторов, эти редакторы в DsgnIntf.файл ССА в $(Делфи)\Источник\ToolsAPI каталог. Вам будет нужно список это устройство в использования пункт любого компонента редактор / редактор свойств можно написать, это также хорошая идея, чтобы держать этот файл открытым для справки, когда пишу свои собственные редакторы.<р класса="step_content "> стандарты кодирования
для начала я расскажу о некоторых стандартов кодирования, которые используются при написании компонента или редакторы свойств. Есть только несколько, но это будет хорошая идея, чтобы придерживаться этих стандартов при написании вашего собственного редакторы, как это делает его легче для других людей, чтобы понять вашу работу.<р класса="step_content ">

• при создании свойство редактора, закончить имя своего редактора со словом "собственность" например <ЭМ>TAngleProperty
<р класса="step_content ">
• после создания компонента редактор, конец имя редактора со словом "редактор" например <ЭМ>TPieChartEditor
<р класса="step_content ">
• когда пишут редакторы, всегда пишу редактор в отдельный блок с вашей фактической составляющей. Это хорошо, чтобы отделить время разработки и во время выполнения кода и, помимо этого, это делает ваш получившийся exe Размер меньше (по некоторым версиям Delphi компонент может останавливать приложения от компиляции, если Вы не разделите их). Кроме того, отдельные пакеты, так что ваши пользователи могут строить с пакетами времени выполнения, если они хотят !
<р класса="step_content ">
• если имя вашего редактора блок с тем же именем, как составляющая единица, но добавить слово "рег" в конце например, компонент с группой название "компонент mycomponent.паск" приведет в редакторе именем быть "MyComponentreg.паск"
<р класса="step_content ">
• если при написании компонента редактор / Editor свойство для компонента, переместите ваш RegisterComponents выписка из компонента, который и в код компонента редактора блока. Таким образом, ваш компонент не будет зарегистрирован без редактора и регистрации.
<р класса="step_content ">

в paDialog
как сообщает инспектор объектов, чтобы показать [...] после имени свойства, когда пользователь нажимает на эту кнопку изменить способ срабатывает.<р класса="step_content "> paSubProperties
как сообщает инспектор объектов, чтобы показать [ ] кнопка перед свойство "имя", при нажатии этой кнопки показать расширенный список дополнительных свойств (как правило опубликованных свойств свойство класса).<р класса="step_content "> paValueList
В инспекторе объектов появится выпадающий список значений, в этом списке определяется в IDE с помощью вызова метода GetValues.
<ем>Примечание: GetValues метод, а не метод getvalue, который полностью отличается от на сайте<р класса="step_content "> paSortList
если в сочетании с paValueList, значения будут отсортированы в алфавитном порядке.<р класса="step_content "> paMultiSelect
при этом указывает, что язь, что собственность будет отображаться при выборе нескольких компонентов. Этот пункт не является для редакторов такого TClassProperty.<р класса="step_content "> paAutoUpdate
вызывает метод setvalue метод, который должен вызываться каждый раз, когда значение изменяется в инспекторе объектов, а не ждал нажатия или изменить другого свойства. Это используется для "Заголовок" и "текст" свойств, чтобы дать прямую представления значения, введенные пользователем.<р класса="step_content "> paReadOnly
если этот элемент включен значение в инспекторе объект только для чтения. Это обычно используется в сочетании с paDialog. Думою будет переопределен для возврата описательное представление свойств. <р класса="step_content "> редактировать
этот метод вызывается при нажатии на кнопку [...] для свойства. Эта кнопка отображается, если элемент paDialog включается в результат запроса getattributes.<р класса="step_content "> Думою
этот метод вызывается, когда объект инспектор должен знать, как отобразить объект в виде строки. Это обычно используется, когда [paDialog, paReadOnly] определены в результате запроса getattributes.<р класса="step_content "> GetValues
этот метод вызывается при инспекторе объектов необходимо получить список значений для отображения, когда paValueList определяется в результате запроса getattributes. GetValues передает параметр под названием "прок", которая является TGetStrProc типа. GetStrProc объявлен TGetStrProc = процедура(константный ы: строкав) для объекта в <р класса="step_content "> в IDE ожидает "прок" будет вызываться один раз для каждого значения, которые должны отображаться в инспекторе объектов это свойство.<р класса="step_content "><границы таблицы="1" Ширина="100%" bgcolor в="#ffffcc">
<элемента tbody><тр> <тд> порядок в THintProperty.GetValues(прок: TGetStrProc)
начать
В прок('первый элемент, чтобы отобразить')
В прок('второй элемент, чтобы отобразить')
конец
и и<р класса="step_content "> <р класса="step_content "> <р класса="step_content "> в следующем примере показано, как задать список значений по умолчанию для "Подсказка" свойства всех компонентов, в то же время позволяя пользователю ввести значение не в списке.<р класса="step_content "><границы таблицы="1" Ширина="100%" bgcolor в="#ffffcc">
<элемента tbody><тр> <тд> Тип
В THintProperty = класс(TStringProperty)
общественные
функция для запроса getattributes: TPropertyAttributes переопределить
процедура GetValues(прок: TGetStrProc) переопределить
конец в <р класса="step_content "> процедура зарегистрировать <р класса="step_content "> для реализациив<р класса="step_content "> порядок в реестре
начать
В RegisterPropertyEditor(Объект typeinfo(строка), Нил, в <шрифта цвет="синий"> "Подсказка" , THintProperty)
конец в <р класса="step_content "> <ем><шрифта цвет="синий">{ THintProperty }<р класса="step_content "> функция в THintProperty.Методы getattributes: TPropertyAttributes
начать
В результате := наследство для запроса getattributes [paValueList, paSortList]
и на конец в <р класса="step_content "> порядок в THintProperty.GetValues(прок: TGetStrProc)
начать
В прок(<шрифта цвет="синий">'это-обязательный параметр')
В прок(<шрифта цвет="синий">'Нажмите клавишу F1 для получения дополнительной информации)
В прок(<шрифта цвет="синий">', это значение является только для чтения')
конец
и и<р класса="step_content "> <р класса="step_content "> <р класса="step_content "> первые методы getattributes переопределяется, и [paValueList, paSortList] включены в результат. Далее GetValues переопределяется и добавляются в выпадающий список по телефону "прок" порядка трех значений.<р класса="step_content "> Регистрация собственности редакторов
и, наконец, свойство редактора Зарегистрирован через RegisterPropertyEditor. RegisterPropertyEditor принимает четыре параметра:<р класса="step_content "> PropertyType: PTypeInfo
не требует указатель на TTypeInfo записи. Это звучит гораздо сложнее, чем есть на самом деле, все, что нам нужно сделать, это добавить TypInfo на использование пункта, и использовать функцию объект typeinfo для получения указателя для нас. Объект typeinfo(SomeVariableType)<р класса="step_content "> ComponentClass: TClass
это базовый класс, что этот редактор должен обратиться. Редактор будет применить для этого класса и классов, которые происходят от нее. Если указан ноль, этот редактор будет применяться к любому классу.<р класса="step_content "> константный Имя_свойства: строка
если этот редактор должен применяться только в отношении конкретного имущества, то имя свойства должно быть указано здесь. Если редактор должен обратиться к любому свойству типа, указанного в PropertyType это значение должно быть ".<р класса="step_content "> EditorClass: TPropertyEditorClass
это класс, который был создан для борьбы с администрацией. В приведенном выше примере класс THintProperty.<р класса="step_content "> используя RegisterPropertyEditor неправильно
это важно при использовании RegisterPropertyEditor, что вы предоставляете правильные сведения. Поставлять неверную информацию, может означать, что либо ваш редактор влияет на ошибочные свойства (например, все строковые свойства) или неправильные компоненты.<р класса="step_content "> другая крайность, настройка параметров неправильно может означать, что только определенное имущество на определенный компонент (и их потомков) - это связано с редактором. Это не кажется большой проблемой на первый, но компоненты потомок, возможно, пожелают внедрить дополнительные свойства одинакового типа. Как эти свойства, очевидно, будет иметь другое имя, они не имеют правильного свойство редактора, возложенные на них.<р класса="step_content "> пример плохо зарегистрированы редактор уже существует в в VCL. Стандартный редактор для TCollection было зарегистрировано для всех классов произошли от TComponent. Проблема в том, что низший класс может быть отображается в инспекторе объект компонент (класс TComponent, который спускается с).<р класса="step_content "> если компонент имеет свойство типа компонент (который по умолчанию выставляет свои подсвойства в разворачиваемом списке), и одно из его свойств-это типа TCollection, в результате [...] кнопку в инспекторе объектов, который ничего не делает при нажатии (как мы видели во второй части этой серии статей).<р класса="step_content "> решение этой проблемы кажется достаточно простым. А не наши суб-свойства произошли от компонент, мы могли бы спуститься от TComponent, а не. Однако, поведение по умолчанию для свойства типа TComponent (как определено редактор свойств редактор TComponentProperty) - Показать список других компонентов, а не суб-свойства встроенного компонента.<р класса="step_content "> собственно решение очень простое, но только если вы знаете как написать редактор свойств.<р класса="step_content "> Шаг 1в:

<границы таблицы="1" Ширина="100%" bgcolor в="#ffffcc">
<элемента tbody><тр> <тд> Тип
В TExpandingRecord = класс(компонент)в
<р класса="step_content "> <р класса="step_content "> <р класса="step_content "> было изменено на

<границы таблицы="1" Ширина="100%"для bgcolor="#ffffcc">
<элемента tbody><тр> <тд> Тип
В TExpandingRecord = класс(TComponent)в
<р класса="step_content "> <р класса="step_content "> <р класса="step_content "> Шаг 2: создать свойство редакторе, например так

<границы таблицы="1" Ширина="100%"для bgcolor="#ffffcc">
<элемента tbody><тр> <тд> Тип
В TExpandingRecordProperty = класс(TClassProperty)
общественные
функция для запроса getattributes : TPropertyAttributes переопределить
конец <р класса="step_content "> процедура зарегистрировать <р класса="step_content "> для реализациив<р класса="step_content "> порядок в реестре
начать
В RegisterComponents(<шрифта цвет="синий">'статьи', [TExpandingComponent])
В RegisterPropertyEditor(typeinfo в(TExpandingRecord), Нил, в <шрифта цвет="синий">", TExpandingRecordProperty)
конец в <р класса="step_content "> <ем><шрифта цвет="синий">{ TExpandingRecordProperty }<р класса="step_content "> функция в TExpandingRecordProperty.Методы getattributes: TPropertyAttributes
начать
В результате := [paReadOnly, paSubProperties]
и на конец
и <р класса="step_content "> <р класса="step_content "> <р класса="step_content "> Шаг 3 в: снять RegisterComponents звонок из компонентов блока, и зарегистрировать его в блок вместо редактора. Таким образом мы можем гарантировать, что компонент не будет зарегистрирован без компонента.<р класса="step_content "> теперь наша собственность Тип TExpandingRecord покажет как расширение собственность (за счет США, возвращающиеся paSubProperties из getattributes), и по умолчанию редактор для TCollection будет работать как владелец TCollection собственность является TComponent.<р класса="step_content "> диалоговое окно "свойства" редакторов
В большинстве случаев, при создании пользовательского свойства редактора, цель-обеспечить графическое средство взаимодействия с администрацией.<р класса="step_content "> это первый пример очень простой способ, позволяющий пользователю ввести несколько строк в "Заголовок" свойства названия. Хотя этот пример не очень сложная, она демонстрирует, как включить форму в редакторе.<р класса="step_content "> Шаг 1:
и выберите файл, новое приложение из главного меню. Это позволит создать формы, название формы "fmLabelEdit", добавить Тметь в форме имени memCaption. Добавить две кнопки: "ОК" и "отмена" с свойства ModalResult значение mrCancel и сделаны соответственно.<р класса="step_content "> Шаг 2:
и добавить DsgnIntf и TypInfo в своих целях пункт.<р класса="step_content "> <р класса="step_content "> Шаг 3:
и добавьте следующее свойство редактора кода для Вашего аппарата.<р класса="step_content "><границы таблицы="1" Ширина="100%" bgcolor в="#ffffcc">
<элемента tbody><тр> <тд> TCaptionProperty = класс(TStringProperty)
общественные
функция для запроса getattributes: TPropertyAttributes переопределить
процедура изменить на переопределить
конец
и и<р класса="step_content "> <р класса="step_content "> <р класса="step_content "> И реестр редакторе свойств как так

<границы таблицы="1" Ширина="100%"для bgcolor="#ffffcc">
<элемента tbody><тр> <тд> процедура зарегистрировать <р класса="step_content "> для реализации
на <цвет шрифта="#000080"><ем>{$Р *.ДФМ}<р класса="step_content "> порядок для регистрации
и начать
В RegisterPropertyEditor(typeinfo в(TCaption), названия, 'Заголовок', TCaptionProperty)
конец
и и<р класса="step_content "> <р класса="step_content "> <р класса="step_content "> Шаг 4:
и добавьте следующий код для того, чтобы инспектор объектов для отображения [...] кнопку "Редактировать" после имени свойства.<р класса="step_content "><границы таблицы="1" Ширина="100%" bgcolor в="#ffffcc">
<элемента tbody><тр> <тд> функция в TCaptionProperty.Методы getattributes: TPropertyAttributes
начать
В результате := наследство для запроса getattributes [paDialog]
конец
и и<р класса="step_content "> <р класса="step_content "> <р класса="step_content "> Шаг 5:
и наконец, мы создаем экземпляр нашего редактора форм, установить содержание памятки для текущего субтитра, а затем показать форму модально.<р класса="step_content "><границы таблицы="1" Ширина="100%" bgcolor в="#ffffcc">
<элемента tbody><тр> <тд> порядок в TCaptionProperty.Редактировать
вар
я: целое число
начать
с TfmLabelEdit.Создание(применение) на у
и попробовать
В memCaption.Линии.Текст := GetStrValue
ShowModal

<див класс='embed_block_0'> <див ИД="блок-google_admanager-1" класса="блок блок-google_admanager области-другие области-количество-1 Количество-1 блок-Без названия "> <див класс="блок-топ"> <див класс="блок-внутренний"> <див класс="содержание"> <див класс="блок-дно"> <див класс='embed_block_1'><див>

<ем><шрифта цвет="синий">{если ModalResult формы сделаны, нужно установить "подпись" собственность каждого названия.}на сайте<р класса="step_content "> если в ModalResult = сделаны на тогда
<Стронг>для я:=0 на в PropCount-1 на у
Без названия(то getcomponent(я)).Заголовок := memCaption.Линии.Текст
в итоге
бесплатные
в конце
конец
и и<р класса="step_content "> <р класса="step_content "> <р класса="step_content "> шаг 6:
и установить блок в пакет, а затем опробовать новый редактор !<р класса="step_content "> расширенные редакторы свойств
и всем, кто когда-либо использовал TActionList или над tdataset (таблицы / восстановить) будет иметь опыт в следующем примере, возможно, даже не осознавая.<р класса="step_content "> в ActionList редактор, очевидно, настраиваемый редактор, так как позволяет группировать действия, в то время как в FieldsEditor над tdataset может показаться на первый взгляд как стандартный редактор, но при ближайшем рассмотрении можно вызвать всплывающее меню с пунктами, такими как "добавить поля". Однако, наиболее примечательной особенностью обоих этих редакторов не в том, что они являются пользовательские диалоговые редакторы (аналогично тому, как мы уже говорили), но то, что элементы, которые они создают включены в состав основных класса текущего блока.<р класса="step_content "><границы таблицы="1" Ширина="100%" bgcolor в="#ffffcc">
<элемента tbody><тр> <тд> Тип
TForm1 = класс(TForm)
В ActionList1: TActionList
В Действие1: Осязательных
В Действие2: Осязательных
Частная
<ем><шрифта цвет="синий">{ частные объявления }
общественные
<ем><шрифта цвет="синий">{ публичных заявлений }
конец
и и<р класса="step_content "> <р класса="step_content "> <р класса="step_content "> преимущество этого заключается в том, что язь, знают об этих элементов, таким образом, позволяя им быть выбран из списка предметов, когда собственность компонента требует от них.<р класса="step_content "> <р класса="step_content "> на рисунке выше, два действия будут добавлены в TActionList, нажав кнопку "действие" свойства кнопки button1 показывает список, состоящий из действий, добавил. Эти два действия также добавил в объявление класса формы, и, следовательно, может быть упомянут по имени (Действие1, Действие2).<р класса="step_content "> хитрость тут лежит целиком в редакторе свойств, а не в компоненте. Когда редактор свойств срабатывает (т. е. метод редактирования называется) отель содержит действительную ссылку на IFormDesigner (TFormDesigner в Delphi 4). Многие функции этого интерфейса не входит в рамки этой статьи, если вы хотите узнать больше о возможностях этого интерфейса я бы порекомендовал книгу Справочник Дельфи разработчика Марко Канту.<р класса="step_content "> некоторые методы включают в себя<р класса="step_content "><границы таблицы="1" Ширина="100%" bgcolor в="#ffffcc">
<элемента tbody><тр> <тд> функция в MethodExists(константный Название: в строку): Логическое
порядок в RenameMethod(константный в CurName, Newназвание: строка в)
порядок в SelectComponent(пример: компонент)
порядок в ShowMethod(константный Название: в строку)
функция в то getcomponent(константный Название: в строку): TComponent
функция в CreateComponent(ComponentClass: TComponentClass родителей: TComponent слева, сверху, ширина, высота: целое число): TComponent и
<р класса="step_content "> <р класса="step_content "> <р класса="step_content "> некоторые из перечисленных выше звонков довольно элементарно, MethodExists например будет возвращать True или false в зависимости от того, является ли способ именем уже существует в виде текущей части (FormCreate, Button1Click и т. д.). ShowMethod переместит курсор к имени метода, и RenameMethod будет изменить имя метода.<р класса="step_content "> два метода, которые представляют интерес для использования на данный момент являются:

CreateComponent
и учитывая, компонент, класс, родитель, чтобы содержать компонент, и позиция / размеры, дизайнер будет создавать экземпляр класса, А В случае, если застройщик выбрал его из палитры компонентов и добавили ее к форма себе.<р класса="step_content "> изменен
как сообщает дизайнер, что что-то было изменено (недвижимость и т. д.). Это изменяет состояние блока, так что IDE знает, что он должен быть сохранен до закрытия (он также позволяет сохранить кнопка в IDE).<р класса="step_content "> при добавлении элементов в нашем массиве все мы должны сделать, чтобы получить TMyProperty.Конструктор для создания компонента от нашего имени. Тогда этот компонент будет добавлен к форме и любое имущество, которое относится к классу этого типа автоматически будет знать об этом. В случае TActionList и над tdataset компоненты, которые добавляются в форме не видны во время разработки, владелец компонент выступает в качестве своеобразного "диспетчера" для компонентов.<р класса="step_content "> во время разработки Вы не увидите осязания или TField компонент на палитру компонент, который, возможно, заставит вас подозревать, что они не зарегистрированы, но язь все еще в состоянии создавать экземпляры этих компонентов (и их тоже не видно). Ответ не в том, что они не зарегистрированы, такое поведение является результатом "как" компонент Зарегистрирован.<р класса="step_content "> в то время как RegisterComponents будет добавить свои компоненты с палитры компонентов, в RegisterNoIcon способ зарегистрировать свой компонент, не добавив его в палитру компонент, регистрация в этом случае также говорит в IDE, что компонент не будет отображаться во время разработки.<р класса="step_content "> в следующем примере мы создадим компонент, называемый TWavSound (дополнительный компонент, называемый TWavButton включен в исходный код, прилагаемый к данной статье в качестве примера). TWavSound просто хранить данные из WAV-файл, и воспроизведения звука на спрос. Хотя это было бы просто для нас, чтобы бросить один TWavSound на нашей форме для каждого WAV-файла мы требуем, наша форма вскоре может стать неуправляемой, поэтому мы будем создавать класс, менеджер позвонил TWavList.<р класса="step_content "> <р класса="step_content "> каждый метод, используемый в исходный код для этих компонентов была освещена во второй части этой серии статей, так что исходный код не распространяется на любой большой уровень детализации. Тем не менее, я покажу классе деклараций этих компонентов, просто чтобы дать вам представление о том, как они структурированы.<р класса="step_content "> <ем>Примечание: в нижней части блока, в секции инициализации устройства вы можете заметить следующий код:<р класса="step_content "> инициализации
и непредвиденное registerclass(TWavSound) <р класса="step_content "> причина в том, что RegisterNoIcon не полную работу. Хотя это позволяет нам создавать экземпляры зарегистрированные от нашего редактора собственность что-то, кажется, идет не так, когда проект повторно загружены, содержащих эти компоненты. "Класс не зарегистрирован" отображается окно сообщения и проект поврежден. Кроме того, зарегистрировавшись класс таким образом, кажется, чтобы исправить проблему,

TWavSound<р класса="step_content "><границы таблицы="1" Ширина="100%"для bgcolor="#ffffcc">
<элемента tbody><тр> <тд> Тип
В PWavData = ^TWavData
В TWavData = упакованные запись
Размер: добавлены типы longint
для сведения: массив[0..0] на с байт
конец в <р класса="step_content "> TWavSound = класс(TComponent)
Частная
В FWavData: PWavData
В FWav: TWav
порядок в ReadWavData(трансляция: TStream)
порядок в WriteWavData(трансляция: TStream)
защищены
порядок в DefineProperties(filer и: TFiler) переопределить
общественные
и деструктор уничтожить переопределить
порядок это понятно
и процедура LoadFromFile(константный в именем: TFilename)
процедура LoadFromStream(трансляция: TStream)
порядок для игры
опубликован
конец
и и<р класса="step_content "> <р класса="step_content "> <р класса="step_content "> FWavData
и будет использоваться для хранения содержимого WAV-файла после загрузки из потока или файла.<р класса="step_content "> очистить
будет освободить память держит FWavData.<р класса="step_content "> играть
будет использовать не sndplaysound вызова API в MMSystem.ССА т