P>
Nota: Tome cuidado, pois o JavaScript é case-sensitive. Listagem 1. Criando um método JavaScript <script language="javascript="> function Message () { alert('Mensagem do JavaScript - ASPX'); } </script> Para exibir essa mensagem no botão ASPX, no Page_Load do formulário, adicione o seguinte código: Button1.Attributes.Add('onclick', 'javascript:AlertMessage()'); Para o segundo botão, vamos adicionar código no PAS. Use o código da Listagem 2 no Click do botão. Listagem 2. Usando mensagem JavaScript no PAS uses System.Text; ... var aScript: StringBuilder; begin aScript := StringBuilder.Create; aScript.Append('<script language="JavaScript">'); aScript.Append( 'alert(''Mensagem do JavaScript - Delphi'');'); aScript.Append('</script>'); if not Page.IsClientScriptBlockRegistered( 'client') then Page.RegisterClientScriptBlock('client', aScript.ToString); end; No código anterior, declaramos uma variável do tipo StringBuilder e fizemos uma concatenação de strings criando uma função do JavaScript. Note que nesse caso, não precisamos dar um nome para a mesma (se desejar criar na variável a mesma assinatura do método, como mostramos na Listagem 1, pode ser feito normalmente). No final, verificamos se o script não foi registrado pela página e então, registramos o mesmo, mostrando a mensagem ao usuário. O valor do parâmetro do IsClientScriptBlockRegistered e RegisterClientScriptBlock é uma chave, portanto coloque o valor que desejar. Execute a aplicação e clique nos botões para exibir as mensagens ( ...
