> Daniel,
> Nenhuma das duas formas deu certo!
Oras, então você não fez certo. Afinal eu não te passei tudo pronto, mas
apenas a idéia de como implementar. De qualquer forma, agora vai o "peixe já
assado", pronto para degustar.
------------ Unit completa -------------
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
procedure LimparCampos1;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure LimparCampos2(Formulario: TForm);
var
I: integer;
begin
for i := 0 to Formulario.ComponentCount -1 do
if Formulario.Components[I] is TEdit then
TEdit(Formulario.Components[I]).Text := ''; { Pode ser .Clear }
end;
procedure TForm1.LimparCampos1;
var
I: integer;
begin
for i := 0 to ComponentCount -1 do
if Components[I] is TEdit then
TEdit(Components[I]).Text := ''; { Pode ser .Clear }
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
LimparCampos1;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
LimparCampos2(Form1);
// ou LimparCampos2(Self);
end;
end.
------------- Fim da unit --------------
Atenciosamente.
Daniel P. Guimarães
Tecnobyte informática
www.tecnobyte.com.br
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
