Transportando Função de uma unit para uma Dll
24/03/2003
0
Olá Pessoal !!!
Eu tenho a seguinte função para fazer com que quando seja pressionado as teclas Seta para cima e Seta para baixo elas funcionem como a tecla tab na unit o código fica assim:
procedure SetaCampo(Key:Word;Form:TForm);
Begin
{ Esta função faz com que as teclas Seta para cima e Seta para baixo funcionar
Como Tab }
If Key=vk_Down then
Begin
Form.Perform(Wm_nextDlgctl,0,0);
end;
If Key=vk_Up then
Begin
Form.Perform(Wm_nextDlgctl,1,0);
end;
End;
Só que agora gostaria de colocar esta função numa Dll só que os parametros delas tem que ser passador como ShortString. Gostaria de saber se tem como ???? Já tentei de todas as formas até mesmo passando os dois parametros como ShortString e convertendo eles para os tipos citados no cabeçalho mas travei na conversão para o Tipo TFORM. Se puderem me ajudar desde já Agradeços...
Ulisses
Eu tenho a seguinte função para fazer com que quando seja pressionado as teclas Seta para cima e Seta para baixo elas funcionem como a tecla tab na unit o código fica assim:
procedure SetaCampo(Key:Word;Form:TForm);
Begin
{ Esta função faz com que as teclas Seta para cima e Seta para baixo funcionar
Como Tab }
If Key=vk_Down then
Begin
Form.Perform(Wm_nextDlgctl,0,0);
end;
If Key=vk_Up then
Begin
Form.Perform(Wm_nextDlgctl,1,0);
end;
End;
Só que agora gostaria de colocar esta função numa Dll só que os parametros delas tem que ser passador como ShortString. Gostaria de saber se tem como ???? Já tentei de todas as formas até mesmo passando os dois parametros como ShortString e convertendo eles para os tipos citados no cabeçalho mas travei na conversão para o Tipo TFORM. Se puderem me ajudar desde já Agradeços...
Ulisses
Ulissesn
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)