Fórum Localizar todos os Edit´s em um form, e mudar a propriedade? #177537
26/08/2003
0
Como localizar todos os Edit´s em um form, e mudar a propriedade?
E qual o melhor lugar de colocar isto?
Esta é uma procedure que criei para deletar os Edit´s, poderia fazer um for não é?Como?
Aqui ele da um erro, exatamente no inclui.
com a mensagem - Undeclared Identified. ´Inclui´.
Vc sabe o que é?
Procedure DelValuesOfDataEntries;
begin
if GerenciadorCustomer.PageControl1.ActivePage=Inclui then
begin
GerenciadorCustomer.Edit1.Text:=´´;
GerenciadorCustomer.Edit2.Text:=´´;
GerenciadorCustomer.CGCCPF.Text:=´´;
GerenciadorCustomer.LabeledEdit1.Text:=´´;
GerenciadorCustomer.Edit4.Text:=´´;
GerenciadorCustomer.Edit5.Text:=´´;
GerenciadorCustomer.Edit6.Text:=´´;
GerenciadorCustomer.MaskEdit10.Text:=´´;
GerenciadorCustomer.MaskEdit1.Text:=´´;
GerenciadorCustomer.Edit8.Text:=´´;
GerenciadorCustomer.MaskEdit2.Text:=´´;
GerenciadorCustomer.MaskEdit3.Text:=´´;
end;
E qual o melhor lugar de colocar isto?
Esta é uma procedure que criei para deletar os Edit´s, poderia fazer um for não é?Como?
Aqui ele da um erro, exatamente no inclui.
com a mensagem - Undeclared Identified. ´Inclui´.
Vc sabe o que é?
Procedure DelValuesOfDataEntries;
begin
if GerenciadorCustomer.PageControl1.ActivePage=Inclui then
begin
GerenciadorCustomer.Edit1.Text:=´´;
GerenciadorCustomer.Edit2.Text:=´´;
GerenciadorCustomer.CGCCPF.Text:=´´;
GerenciadorCustomer.LabeledEdit1.Text:=´´;
GerenciadorCustomer.Edit4.Text:=´´;
GerenciadorCustomer.Edit5.Text:=´´;
GerenciadorCustomer.Edit6.Text:=´´;
GerenciadorCustomer.MaskEdit10.Text:=´´;
GerenciadorCustomer.MaskEdit1.Text:=´´;
GerenciadorCustomer.Edit8.Text:=´´;
GerenciadorCustomer.MaskEdit2.Text:=´´;
GerenciadorCustomer.MaskEdit3.Text:=´´;
end;
Host
Curtir tópico
+ 0
Responder
Posts
26/08/2003
Host
To te dando esta caja viu tchê, não te apruma!!
var
nAux: integer;
begin
for nAux := 0 to ComponentCount-1 do
begin
if Components[nAux] is TEdit then
TEdit(Components[nAux]).text := ´´;
end;
end;
var
nAux: integer;
begin
for nAux := 0 to ComponentCount-1 do
begin
if Components[nAux] is TEdit then
TEdit(Components[nAux]).text := ´´;
end;
end;
Responder
Gostei + 0
26/08/2003
Host
Tchê guti, valeu uma barbaridade!!Aparece lá em casa pra toma um chimas, chega lá tche, que eu tenho uma cânha, prá lá de boenacha!!
Responder
Gostei + 0
26/08/2003
Nildo
var
nAux: integer;
begin
for nAux := 0 to Form1.ComponentCount-1 do
begin
if Form1.Components[nAux] is TCustomEdit then
TEdit(Form1.Components[nAux]).text := ´´;
end;
end;
nAux: integer;
begin
for nAux := 0 to Form1.ComponentCount-1 do
begin
if Form1.Components[nAux] is TCustomEdit then
TEdit(Form1.Components[nAux]).text := ´´;
end;
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)