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

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

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

Aceitar