extremamente urgente
ola amigos, ja to ficando loco, to chamando uma funcão que se chama
function limpaEdit (Sender : TObject);
quando implemento esta funcao localmente, ela funciona normalmente, mas se implemento ela por exemplo em um DataModule e chamo de um form passando um form como parametro, ela nao recebe nada de parametro e simplismente nao limpa os edits do form passado por parametro, segue abaixo o codigo da funcao
function limpaEdit (Sender : TObject);
var
i: integr;
begin
for i := 0 to (Sender as TForm).ComponentCount - 1 do
begin
if ((Sender as TForm).Components[i] is TEdit) then
((Sender as TForm).Components[i] as TEdit).Clear;
end;
end;
function limpaEdit (Sender : TObject);
quando implemento esta funcao localmente, ela funciona normalmente, mas se implemento ela por exemplo em um DataModule e chamo de um form passando um form como parametro, ela nao recebe nada de parametro e simplismente nao limpa os edits do form passado por parametro, segue abaixo o codigo da funcao
function limpaEdit (Sender : TObject);
var
i: integr;
begin
for i := 0 to (Sender as TForm).ComponentCount - 1 do
begin
if ((Sender as TForm).Components[i] is TEdit) then
((Sender as TForm).Components[i] as TEdit).Clear;
end;
end;
Smaug_84
Curtidas 0
Respostas
4_olho
03/07/2003
Parece que você está tentando evitar digitação de código, colocando sua função no DataModule e não deu. Por quê não tenta colocar no form principal, mas na área pública ?
GOSTEI 0
Smaug_84
03/07/2003
tanto faz colocar na classe de um data module na sessao public como em outra classe de qualquer form na sessao publica, escolho p data module, pq normalmente tudo que vou usar em mais de um form coloco la
GOSTEI 0