Como pasar un dato entre dos clases del tipo TProperty

[ariefez]

Ignoro la estructura del componente pero como dice dec se puede acceder con GetComponent

Código Delphi [-]
procedure RegisterPropertyEditor(PropertyType: PTypeInfo; ComponentClass: TClass; const PropertyName: string; EditorClass: TPropertyEditorClass);

basandose en la forma q registras los editores

Código Delphi [-]
procedure Register;
begin
  RegisterPropertyEditor(TypeInfo(String),TRegEditor,'Key',TKeyProperty);
  RegisterPropertyEditor(TypeInfo(String),TRegEditor,'SubKey',TSubKeyProperty);
  RegisterComponents('Samples', [TRegEditor]);
end;

el componente en si seria:

Código Delphi [-]
TRegEditor(GetComponent(0))

si se esta trabajando con colecciones seria bueno q ComponentClass sea tu clase de TCollectionItem para evitar el manejo de indices.

[[egostar]]

Hola ariefez

Muchas gracias, ya hice lo que me comentaste

Código Delphi [-]
 
    frmSubKey.stKey.Caption := TRegEditor(GetComponent(0).Name;

Pero no me coloca nada en el frmSubKey.stKey.Caption.

Seguire intentando, ya les dejaré saber los resultados. Es hora de salir con la familia.

Feliz 2008.

Salud OS

[[egostar]]

Hola amigos

Ya solucione el detalle de pasar el valor de la propiedad de mi componente .

Código Delphi [-]
procedure TSubKeyProperty.Edit;
begin
  frmSubKey := TfrmSubKey.Create(Application);
  try
    frmSubKey.Caption := 'Selecciona SubKey';
    frmSubKey.stKey.Caption := TRegEditor(GetComponent(0)).Key; 
    frmSubKey.ShowModal;
    if frmSubKey.ModalResult = mrOK then begin
       SetStrValue(frmSubKey.stSubKey.Caption);
       designer.Modified;
    end;
  finally
    frmSubKey.Free;
  end;
end;

Usé lo que me recomendaron GetComponent(0) pero con el nombre de la propiedad del componente (Key).

Salud OS y gracias