Contar Cantidad de ReadOnly
 

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

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.

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.

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

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.