Robson Moreira

Olá Daniel, Boa noite. Não havia declarado realmente. Bastou um duplo clique no evento do componente e a IDE criou e vinculou o código corretamente. Obrigado!

Ola Senhores, Tudo bem? Estou tendo problemas em Delphi 10 Seattle, O Exemplo funciona muito bem, mas meu código não. Acho que estou esquecendo de declarar ou inicializar algo. Não retorna o código de ativação pq a cláusula if Assigned retorna FALSO. Vcs saberiam me dizer em que eu estou errando? GRATO! function TACBrSAT.GetcodigoDeAtivacao : AnsiString ; var AcodigoDeAtivacao : AnsiString ; begin AcodigoDeAtivacao := ''; if Assigned( fsOnGetcodigoDeAtivacao ) then fsOnGetcodigoDeAtivacao( AcodigoDeAtivacao ) ; Result := AcodigoDeAtivacao; end;