Funções em uma DLL ?

05/03/2006

0

Tenho o seguinte Código, para limpar alguns componentes na tela de 1 Form. O problema é o seguinte:Este código abaixo, declarado em 1 form, roda normalmente. Quando adapto ele para uma DLL, e a chamo no form, ela ñ funciona(ñ acontece nada,como se nem tivesse sendo chamada, mas já vrf no debug e ela está sendo chamada).
Alguém pode ajudar ???
Abraços...
----------------------------------------------------------------
Procedure LimpaObjeto(Sender:Tobject);StdCall;
Var
C:integer;
Begin
For C:=0 to Tform(Sender).ComponentCount -1 do
Begin
If Tform(Sender).Components[C] Is TLabeledEdit then
tLabeledEdit(Tform(Sender).Components[c]).Clear;
If Tform(Sender).Components[C] Is TEdit then
tEdit(Tform(Sender).Components[c]).Clear;
If Tform(Sender).Components[C] Is TMaskEdit then
tMaskEdit(Tform(Sender).Components[c]).Clear;
End;
End;
Exports LimpaObjeto;


Cabal

Cabal

Responder

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar