Cada uno de los componentes siempre estan dentro de otro (Parent) el cual es el contenedor. Este contenedor tiene una coleccion de todos los componentes que tiene, tendrias que recorrer la coleccion, detectar cual es edit y aplicarle la funcion que tu deseas. Por ej:
function ComponentNamed( Container: TComponent;
ComponentName: TComponentName): TComponent;
var i: integer;
begin
Result:= nil;
for i:= 1 to Container.ComponentCount do
begin
if upperCase(container.Components[i-1].Name) = upperCase (ComponentName)
then begin
Result:=container.Components[i-1];
break;
end;
end;
end;
Esta funcion busca un componente por su nombre y te lo devuelve.
Saludos
|