Tem como mudar o indice dos componentes???

Delphi

03/09/2003

Será que existe alguma forma de mudar o indice de um componente?

Exemplo:
Colocar em um form um ListBox e os seguintes Edits desordenamente..
Edit1
Edit3
Edit2
Edit5
Edit4
Suponhamos que ao inciarmos a seguite interação
ListBox1.Clear
for i := 0 to ComponentCount -1 do
begin
if Components[i] is TEdit then
ListBox1.Items.Add(´Nome do Componente: ´ +Components[i].Name +
´ ´+ (Components[i] as TEdit).Text +
´ ´ +IntToStr(i) );
end;
Vai gerar o seguinte Resultado..
Nome do Componente: Edit1 Edit1 1 -> Esta coluna representa o Indice .
Nome do Componente: Edit2 Edit2 2
Nome do Componente: Edit3 Edit3 3
Nome do Componente: Edit4 Edit4 4
Nome do Componente: Edit5 Edit5 5

O nome do componente no caso Edit... o conteudo da propriedade Text e o seu indice, mas reparem que quando eu inseri os componentes no form eu os inseri desordenamente, ai é que esta a questão.. teria como eu mudar esta ordem ou seja este indice?
É que tenho um form com vários edits,(+ou -) uns 35, e os coloquei desordenamente, mas como mudei a propriedade TabOrder, eles estão seguindo uma sequência correta , agora em uma rotina eu necessito correr todos os edit´s.. pela sequencia do Index, pois na hora do preenchimento alguns não necessitam estar preenchido..e somente devo processar os que estiverem preenchido..pois os mesmos se referem a alguns campos e estão obedecendo a ordem dos campos. esta foi a única maneira que encontrei para subir a falta da macro substuição que existe no clipper.

Se alguém puder me responder desde já agradeço

Fausto


Faustoalves

Faustoalves

Curtidas 0
POSTAR