Fórum Declaração de DLL e Seu uso ?? #313880
22/02/2006
0
Declarei uma DLL, mas ñ consigo chamá-la no form...
A declaração da Função é esta...
Procedure LimpaObjeto(Formulario:Tform); Export;
Var
C:integer;
Begin
For C:=0 to Formulario.ComponentCount -1 do
Begin
If Formulario.Components[C] Is TLabeledEdit then
tLabeledEdit(Formulario.Components[c]).Clear;
If Formulario.Components[C] Is TEdit then
tEdit(Formulario.Components[c]).Clear;
If Formulario.Components[C] Is TMaskEdit then
tMaskEdit(Formulario.Components[c]).Clear;
End;
End;
Exports LimpaObjeto;
--------------------------------------------------------------------------------
Declaro no Form assim:
implementation
uses Form_principal;
Procedure LimpaObjeto(Formulario:Tform); External ´Funcoes.DLL´ name ´LimpaObjeto´;
A declaração da Função é esta...
Procedure LimpaObjeto(Formulario:Tform); Export;
Var
C:integer;
Begin
For C:=0 to Formulario.ComponentCount -1 do
Begin
If Formulario.Components[C] Is TLabeledEdit then
tLabeledEdit(Formulario.Components[c]).Clear;
If Formulario.Components[C] Is TEdit then
tEdit(Formulario.Components[c]).Clear;
If Formulario.Components[C] Is TMaskEdit then
tMaskEdit(Formulario.Components[c]).Clear;
End;
End;
Exports LimpaObjeto;
--------------------------------------------------------------------------------
Declaro no Form assim:
implementation
uses Form_principal;
Procedure LimpaObjeto(Formulario:Tform); External ´Funcoes.DLL´ name ´LimpaObjeto´;
Cabal
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)