Использование перечислимых констант

В Инспекторе Объектов я пытаюсь получить раскрывающийся список для моего перечислимого типа...

Для этого вам необходимо создать собственный редактор свойства. Ниже приведен его простой пример:

type

TBaudRateProperty = class(TStringProperty)

public

function GetAttributes: TPropertyAttributes; override;

procedure GetValues(Proc: TGetStrProc); override;

function GetValue: string; override;

procedure SetValue(const Value: string); override;

end;

...

type

TBaudRate=(br110,br300,br600,br1200,br2400,br4800,br9600,br14400,br19200,br38400,br56000,br128000,br256000);

const

BaudList : Array[TBaudRate] of string[7] =

('110','300','600','1200','2400','4800','9600','14400','19200','38400','56000','128000','256000');

{TBaudRateProperty}
function TBaudRateProperty.GetAttributes : TPropertyAttributes;
begin

Result:=[paValueList];

end;

procedure TBaudRateProperty.GetValues(Proc : TGetStrProc);
var

i : TBaudRate;

begin

for i:=Low(TBaudRate) to High(TBaudRate) do Proc(BaudList[i]);

end;

function TBaudRateProperty.GetValue: string;
begin

Result := BaudList[TBaudRate(GetOrdValue)];

end;

procedure TBaudRateProperty.SetValue(const Value: string);
var

i : TBaudRate;

begin

for i:=Low(TBaudRate) to High(TBaudRate) do

if BaudList[i]= Value then begin

SetOrdValue(integer(i));

EXIT;

end;

inherited SetValue(Value);

end;

Надеюсь это поможет.

Dan Miser
Med Data Systems, Inc. [000602]