Contar Cantidad de ReadOnly

[brandolin]

Hola a todos, lo que voy preguntar seguro que es una pavada pero hace rato que estoy luchando.

bueno la cosa es que tengo varios edit en un form y a medida que se ejecuta el onExit en cada uno de los componente se va colocando la propiedad readonly del Edit en True, para que no se pueda volver a cambiar el valor, ahora bien lo que quiero es saber cuando todos los edit del form estan en readonly... existirar alguna propiedad que los cuente... o algo por el estilo...

gracias por todo

[Neftali [Germán.Estévez]]

Revisa en la ayuda o busca en los foros sobre las propiedades "components[i] y ComponentCount". Enconytrarás varios ejemplos de cómo recorrer todos los TEdit del formulario.

[[Ivanzinho]]

puede probar con esto

Código Delphi [-]
var
   edits, ronly : integer;
   componente : TControl;
begin
   edits := 0;
   ronly := 0;
   for i:= 1 to form.controlcount - 1 do
      componente := form.controls[i];
      if componente is Tedit then
         begin
            edits = edits + 1;
            if (componente as tedit).readonly then
               ronly := ronly + 1;
         end;
   if ronly = tedits then
      showmessage('Todos los edits son read only');
end;

Un saúdo.

[brandolin]

Uff que velocidad.... gracias por la contestacion... yo tambien he encontrado algo similar... mil gracias por todo

[[Ivanzinho]]

Conteste sin pensar mucho, pero dentro del bucle puedes mirar si es readonly, en caso de que no se sale del bucle y haces la comprobación.