Para desenvolvedores de componentes, editor de propriedades

Delphi

02/05/2003

Essa é difícil: tenho que escrever um editor de propriedades sem saber qual o nome da propriedade que ele vai gravar. A propriedade não pode ser gravada com SetAsString, SetAsInteger nem nada disso, porque ela é do tipo TWinControl. Como faço pra gravar o valor dela? Só consegui resolver com um xaxixo assim:


procedure MeuEditor.SetValue(Value: string);
begin
  ... (vamos dizer que eu tenha jogado o valor numa variável Valor)

  if GetName = ´Prop1´ then
    (GetComponent(0) as MeuComponente).Prop1:= Valor
  else if GetName = ´Prop2´ then
    (GetComponent(0) as MeuComponente).Prop2:= Valor;
  ... (etc)
end


Alguém sabe o jeito CERTO de fazer isso?[/code]


Schwarze

Schwarze

Curtidas 0
POSTAR