Fórum Criar uma função - simples #204931
07/01/2004
0
Queria criar uma função para desabilitar todos os DBEdit e colocar uma cor de um formulario, pois neste formulario tem mais de 30 DBEdit4. como que eu faço isso....
agradeço!
agradeço!
Coppola
Curtir tópico
+ 0
Responder
Posts
07/01/2004
Fórum Vini
Olá,
utilize essa função:
Obs.: Troque Form1 pelo nome do seu formulário, e se você utilizar DbEdits, troque TEdit por TDbEdit.
Espero ter ajudado.
Vinicius.
utilize essa função:
procedure TForm1.mudaEdits;
var
cont: Integer;
begin
for cont:= 0 to Form1.ComponentCount-1 do
if (Form1.Components[cont] is TEdit) then
(Form1.Components[cont] as TEdit).Enabled:= false;
end;Obs.: Troque Form1 pelo nome do seu formulário, e se você utilizar DbEdits, troque TEdit por TDbEdit.
Espero ter ajudado.
Vinicius.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)