limpar textbox no 2005
como faço para limpar todos os componentes editaveis do form
numa aplicação windows forms.
[ ]´s
Paulo.
numa aplicação windows forms.
[ ]´s
Paulo.
Paulo Bonfim
Curtidas 0
Respostas
Paulo Bonfim
26/10/2005
up
[ ]´s
Paulo.
[ ]´s
Paulo.
GOSTEI 0
Bon Jovi
26/10/2005
Exemplo em C#. Dá pra vc pegar a idéia e converter a sintaxe pra pascal.
private void Varre(Control ControleRaiz) { foreach (Control Controle in ControleRaiz.Controls) { if (Controle is TextBox) { (Controle as TextBox).Clear(); } else if (Controle is RichTextBox) { (Controle as RichTextBox).Clear(); } //else if outros... Varre(Controle); } } private void button1_Click(object sender, System.EventArgs e) { Varre(this); }
GOSTEI 0
Bon Jovi
26/10/2005
Melhorado:
private void Varre(Control ControleRaiz) { foreach (Control Controle in ControleRaiz.Controls) { if (Controle is TextBoxBase) { (Controle as TextBoxBase).Clear(); } Varre(Controle); } } private void button1_Click(object sender, System.EventArgs e) { Varre(this); }
GOSTEI 0
Paulo Bonfim
26/10/2005
[quote:5413a97b99=´Bon Jovi´]Melhorado:
[/quote:5413a97b99]
Bon jovi lhe agradeço a tentativa, mas não entendo nada de C#
já vi na net exemplos, mas não consegui adaptar, pois sou novo em delphi languange .net
[ ]´s
Paulo
private void Varre(Control ControleRaiz) { foreach (Control Controle in ControleRaiz.Controls) { if (Controle is TextBoxBase) { (Controle as TextBoxBase).Clear(); } Varre(Controle); } } private void button1_Click(object sender, System.EventArgs e) { Varre(this); }
Bon jovi lhe agradeço a tentativa, mas não entendo nada de C#
já vi na net exemplos, mas não consegui adaptar, pois sou novo em delphi languange .net
[ ]´s
Paulo
GOSTEI 0
Wildelphi
26/10/2005
Para Limpar os edits faca o seguinte
procedure frmForm1.LimparEdits;
var
i : integer ;
begin
components := System.ComponentModel.Container.Create;
for i := 0 to self.Controls.Count -1 do
begin
if Controls.Item[i].ClassType.ClassNameIs(´TextBox´) then
(Controls.Item[i] as TextBox).Clear
end;
end;
procedure frmForm1.LimparEdits;
var
i : integer ;
begin
components := System.ComponentModel.Container.Create;
for i := 0 to self.Controls.Count -1 do
begin
if Controls.Item[i].ClassType.ClassNameIs(´TextBox´) then
(Controls.Item[i] as TextBox).Clear
end;
end;
GOSTEI 0