Советы по Delphi
Использование перечислимых констант
В Инспекторе Объектов я пытаюсь получить раскрывающийся список для моего перечислимого типа...
Для этого вам необходимо создать собственный редактор свойства. Ниже приведен его простой пример:
| type TBaudRateProperty = class(TStringProperty)publicfunction 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) doif BaudList[i]= Value then beginSetOrdValue(integer(i));EXIT;end;inherited SetValue(Value);end; |
Надеюсь это поможет.
Dan Miser
Med Data Systems, Inc. [000602]
