Inicializar Edits ComBox

Delphi

27/04/2004

Oi . . .
Tenho em um form, 40 entradas, entre Edits, ComboBox e DateEdit.
Como inicia-los sem fazer individualmente?
Sobre o form, como definir sua posição na tela, ao executar independentemente de sua posição em tempo de desenvolvimento? Como impedir seu deslocamento pelo usuário em tempo de execução?
{}
Fabiana


Fab

Fab

Curtidas 0

Respostas

Lucas Silva

Lucas Silva

27/04/2004

Oi . . . Tenho em um form, 40 entradas, entre Edits, ComboBox e DateEdit. Como inicia-los sem fazer individualmente?


Mude o tag destes componentes p/ dois.
var i: integer;
...
for i:= 0 to componentCount -1 do
 if components[i].tag = 2 then
   begin
     
     if Components[i] as TComboBox then 
      (Components is TCombobox).O_método_que_você_quiser.
     if Components[i] as TEdit then 
      .... 
     // e assim vai...
   end;



GOSTEI 0
POSTAR