Fórum Criar Type Atribuir Property em Runtime #372856

Já pensou em usar [b:859925ce84]TStringList[/b:859925ce84] no tipo do modelo!?
assim. Vc poderia ir adicionando itens a lista.

eu faria uma array dinamica e com o tipo enum escolhido e os itens adicionado... seria um indice a mais na array.

Estou meio ocupado agora, mas depois faço um exemplo e posto aqui pra vc. (se quiser)

Se ficar dificil de entender, da o tok q explico melhor.[/code]

Mas essa property irá aparecer como um combobox no object inspector?

Eu tentei colcar a property como array mas quando dou um build o delphi aponta que a property não pode ser um array.

Mas põe um exemplo por favor, pode ser que eu não tenha entendido bem o conceito.

Agradeço desde já.


Abraços.

Pensei que vc queria em run-time e não em modo de edição.
Aí a situação muda (pelo menos ao meu ver). Eu ainda não vi como fazer para uma nova tela aparecer para ir adicionando novos itens. (falei complicado) O exemplo que posso dar é: Quando vc adiciona um [b:42cc0e6f85]ClientDataSet[/b:42cc0e6f85] ele tem a propriedade [i:42cc0e6f85]FieldDefs[/i:42cc0e6f85] que abre uma telinha para vc adicionar os campos. O campo em si é uma classe.

Em modo de design seria dessa forma. aplicaria o que mencionei dessa forma. Desculpe se minha explicação está meio que corrida, pois acesso as vezes a comunidade e hj estou c poko tempo. a noite faço um exemplo e posto pra tu. rs

Boa-tarde

Tem que criar um editor de propriedades. É meio complexo. O primeiro passo é criar um pacote somente de design. Nele coloque uma unit.

Abaixo eu fiz há algum tempo algo bem semelhante, um Combo no ObjectInspector que mostrava uma lista de idiomas:

Aqui criamos o editor da propriedade:
...

TIdiomasList = class (TStringProperty)
public
procedure GetValues(Proc: TGetStrProc); override;
function GetAttributes : TPropertyAttributes; override;
end;

...
Aqui registramos o editor vinculando-o a uma classe e a uma propriedade:

procedure Register;
begin RegisterPropertyEditor(TypeInfo(string),TWWTranslator,´Idioma´,TIdiomasList);
end;

Implementando o editor:

function TIdiomasList.GetAttributes: TPropertyAttributes;
begin
Result:=inherited GetAttributes + [paValueList];
end;

procedure TIdiomasList.GetValues(Proc: TGetStrProc);
var
cont : byte;
begin
for cont:=1 to LangPairNumIdiomas do
Proc(LangPairLong[cont]);
end;

Sendo que:

LangPairNumIdiomas = 12;
LangPairLong : array [1..LangPairNumIdiomas] of string =
(´Inglês para Alemão´,´Inglês para Espanhol´,´Inglês para Francês´,
´Inglês para Italiano´,´Inglês para Português´,´Alemão para Inglês´,
´Alemão para Francês´,´Espanhol para Inglês´,´Francês para Inglês´,
´Francês para Alemão´,´Italiano para Inglês´,´Português para Inglês´);

Att,

Guinther Pauli
http://guintherpauli.blogspot.com
http://twitter.com/guintherpauli

Guinther,

Aparecer como um combobox no object inspector eu já consegui, a property Fabricante aparece como um combo, fiz com enum, e é o ideal pq depois uso o retorno num case of...O que estou precisando é de outro combo, o Modelo, mas esse modelo tem q ter seus ´itens´ alterados conforme a seleção do fabricando, ou seja, eu tenho que criar um enum em runtime certo? Mas não sei se tem como fazer isso.

vlw. Abraços.

Eu sei que faz muito tempo, mas estou com a mesma dificuldade. Alguem poderia dar um exemplo?