Иллюстрированный самоучитель по Kylix


Листинг 19 4 Создание свойствамножества unit QMyButton;



Листинг 19.4. Создание свойства-множества

unit QMyButton;

interface
uses
SysUtils, Types, Classes, QGraphics, QControls, QForms, QDialogs, QStdCtrls;
type
TMyEnumType = (eFirst, eSecond, eThird); TMySetTypeFirst = {poFirst, poSecond, poThird); TMySetType = set of TMySetTypeFirst;
type
TMyButton = class(TButton) private
{ Private declarations }
FMyEnum: TMyEnumType;
FMyOptions: TMySetType; protected
{ Protected declarations } public
{ Public declarations } published
{ Published declarations }
property MyEnumProp: TMyEnumType read ЕМуЕnum write FMyEnum;
property MyOptions: TMySetType read FMyOptions write FMyOptions; end;
procedure Register; implementation
procedure Register; begin
RegisterComponents('Samples', [TMyButton]); end;
end.

Для удобства мы не стали исключать определение перечисляемого свойства в компоненте TMyButton.

В результате в окне инспектора объектов свойство-множество будет отображаться как показано на Рисунок 19 4

19-09-2.jpg



Начало Назад Вперед


Книжный магазин