Array
(
)

limpar textbox no 2005

Paulo Bonfim
   - 26 out 2005

como faço para limpar todos os componentes editaveis do form

numa aplicação windows forms.

[ ]´s
Paulo.


Paulo Bonfim
   - 28 out 2005

up

[ ]´s
Paulo.


Bon Jovi
   - 28 out 2005

Exemplo em C#. Dá pra vc pegar a idéia e converter a sintaxe pra pascal.
#Código


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);
}



Bon Jovi
   - 28 out 2005

Melhorado:
#Código

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);
}



Paulo Bonfim
   - 29 out 2005


Citação:
Melhorado:
#Código

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


Wildelphi
   - 20 dez 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;