Fórum Limpar todos os textos dos edit de um formulario #207083
16/01/2004
0
:shock: Ola pessoal!!!
Como faço para que ao clicar em um botão todos os edits do formulario fiquem limpos.
Eu sempre faço assim;
edit1.text := ´´;
edit2.text := ´´;
e assim vou colocando todos os edits nesta função.
Existe um geito mais facio de fazer isto?, pois estou com um form que possui 75 edits.
Como faço para que ao clicar em um botão todos os edits do formulario fiquem limpos.
Eu sempre faço assim;
edit1.text := ´´;
edit2.text := ´´;
e assim vou colocando todos os edits nesta função.
Existe um geito mais facio de fazer isto?, pois estou com um form que possui 75 edits.
Teoprog
Curtir tópico
+ 0
Responder
Posts
16/01/2004
Motta
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for i := 0 to (ComponentCount-1) do
if Components[i] is TEdit then
TEdit(Components[i]).Clear;
end;
var i:integer;
begin
for i := 0 to (ComponentCount-1) do
if Components[i] is TEdit then
TEdit(Components[i]).Clear;
end;
Responder
Gostei + 0
16/01/2004
Rogerio@eu.zip.net
Procedure LimpaEdit;
var
i : Integer;
begin
for i := 0 to ComponentCount -1 do
if Components[i] is TEdit then
begin
TEdit(Components[i]).Text := ´´;
end;
end;
procedure LimpaEdit (Form: TForm);
var
i : Integer;
begin
for i := 0 to Form.ComponentCount - 1 do
if Form.Components[i] is TCustomEdit then
(Form.Components[i] as TCustomEdit).Clear;
end;
// assim limpara todos os Edits, Memos, MaskEdits, etc...
//Valeu!!
var
i : Integer;
begin
for i := 0 to ComponentCount -1 do
if Components[i] is TEdit then
begin
TEdit(Components[i]).Text := ´´;
end;
end;
procedure LimpaEdit (Form: TForm);
var
i : Integer;
begin
for i := 0 to Form.ComponentCount - 1 do
if Form.Components[i] is TCustomEdit then
(Form.Components[i] as TCustomEdit).Clear;
end;
// assim limpara todos os Edits, Memos, MaskEdits, etc...
//Valeu!!
Responder
Gostei + 0
16/01/2004
C.eduardo
Selecione todos os edits de seu form.
selecione o objct inspector e selecione a aba events.
Selecione o evento onclick e abra o evento(2 cliques)
Digite a seguionte linha
TForm(SEnder).Text := ´´;
Pronto....
Muito mais fácil do que aquelas muitas linhas de verificação de tipos de componentes...oK????
Abraços,
Carlos Eduardo
selecione o objct inspector e selecione a aba events.
Selecione o evento onclick e abra o evento(2 cliques)
Digite a seguionte linha
TForm(SEnder).Text := ´´;
Pronto....
Muito mais fácil do que aquelas muitas linhas de verificação de tipos de componentes...oK????
Abraços,
Carlos Eduardo
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)