Property

WaReZ_MEN

мне нужно описать своиство ImageList.Items[0]


В дельфи все выглядит так:
property Items[Index: Integer]: TImageListItem read GetItem write SetItem;

function GetItem(Index: Integer): TImageListItem;
procedure SetItem(Index: Integer; Value: TImageListItem);

Как мне это здеалть?

P.S. Руководство читал и в хелпе смотрел.....

-=Den=-

Плохо смотрели

    Индексируемые (indexed) свойства и свойства по умолчанию (default) описываются дескриптором метода, обычные свойства описываются дескрипторами свойств Get/Set.

begin 
  ... 
  with fsScript1.AddClass(TStrings, 'TPersistent') do 
  begin 
    { property CommaText: String } 
    AddProperty('CommaText', 'string', GetProp, SetProp); 
    { property Count: Integer readonly, second handler is nil } 
    AddProperty('Count', 'Integer', GetProp, nil); 
    { index property Objects[Index: Integer]: TObject } 
    AddIndexProperty('Objects', 'Integer', 'TObject', CallMethod); 
    { default property Strings[Index: Integer]: String } 
    AddDefaultProperty('Strings', 'Integer', 'string', CallMethod); 
  end; 
  ... 
end; 

{ обработчик }
function TForm1.CallMethod(Instance: TObject; ClassType: TClass; 
  const MethodName: String; var Params: Variant): Variant; 
begin 
  Result := 0; 

  if MethodName = 'OBJECTS.GET' then 
    Result := Integer(TStrings(Instance).Objects[Params[0]]) 
  else if MethodName = 'OBJECTS.SET' then 
    TStrings(Instance).Objects[Params[0]] := TObject(Integer(Params[1])) 
  else if MethodName = 'STRINGS.GET' then 
    Result := TStrings(Instance).Strings[Params[0]] 
  else if MethodName = 'STRINGS.SET' then 
    TStrings(Instance).Strings[Params[0]] := Params[1] 
end; 

{ обработчик }
function TForm1.GetProp(Instance: TObject; ClassType: TClass; 
  const PropName: String): Variant; 
begin 
  Result := 0; 

  if PropName = 'COMMATEXT' then 
    Result := TStrings(Instance).CommaText 
  else if PropName = 'COUNT' then 
    Result := TStrings(Instance).Count 
end; 

{ обработчик }
procedure TForm1.SetProp(Instance: TObject; ClassType: TClass; 
  const PropName: String; Value: Variant); 
begin 
  if PropName = 'COMMATEXT' then 
    TStrings(Instance).CommaText := Value 
end; 

WaReZ_MEN

Спасибо!