Eu faria assim.. Colocaria na propiedde TAG=1 dos edit's que queira
alterar... depois usava a Seguinte procedure..
procedure ADEdits ( Ativa : Boolean );
var
x : Integer ;
begin
for x := 0 to componentCount - 1 do
if Components[x] is Tedit then
if TEdit(Components[x]).tag = 1 then
Tedit(Coponents[x]).enabled := Ativa ;
end;
Wesley
From: Ricardo Cabral
Sent: Friday, June 13, 2008 8:27 AM
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] Edit
Olha pessoal !
Imaginem uma tela com 15 campos Edit (edit1, edit2, edit3...edit15).
O problema é o seguinte: Como eu posso, por exemplo, colocar edit.enable:=false
nos edit´s de 5 até 14 sem ter que fozer um por um ? Daria para fazer através
de um loop ?
Abraços,
Ricardo Cabral
Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento!
http://br.mail.yahoo.com/
__________ Information from ESET NOD32 Antivirus, version of virus signature
database 3183 (20080613) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
[As partes desta mensagem que não continham texto foram removidas]
