Aqui o código HTML do demo. Para realizar o exemplo, baixe a pagina HTML zipada aqui,
descompacte e carregue em dicResource.
<html>
<head>
<title>Demo Form</title>
<meta name="Author" content="SAtelier"/>
<meta name="version" content= "1.0"/>
<meta name='formSize' content= 'height=310; width=420'>
<script type="text" language="arScript" name='scripts'>
procedure showInfo( const lstResults: string );
begin
// msg_info( [ 'Resultados:', lstResults ], 'Pedido' );
msg_info( ['Cor selecionada: ' + arVarByName( lstResults, 'Cor' ),
'Forma de pagamento: ' + arVarByName( lstResults, 'Pagamento' )
],
'Pedido' );
end;
function informeValor( const cInput, cValue: string ): boolean;
begin
result:= not ( cValue = '' );
if not result then msg_info( [ 'Informe o valor de ' + cInput ], 'Pedido' );
end;
function getInfo( const comHora: boolean ): string;
begin
result:= sf.UserName;
if comHora then result:= result + ' o dia ' + dateToStr( sf.now );
end;
</script>
</head>
<body bgColor= "#F0F8FF" style="font-family: verdana, sans-Serif">
<form action="arScript:scripts.showInfo( results )">
<table align="center" border="0" width="360">
<tr><td colspan="3" align="center" bgColor="#00BFFF"><b>Pedido</b></td></tr>
<tr>
<td align="right" width= "33%">Nome:</td>
<td colspan="2" width="67%"><input size="40" name="Nome" onBlur='arScript:scripts.informeValor(name, value)'></td>
</tr>
<tr>
<td align="right" width= "33%">Endereço:</td>
<td colspan="2" width="67%"><input size="34" name="Endereco" onBlur='arScript:scripts.informeValor(name, value)'>
<a target='_blank' href='http://www.correios.com.br/servicos/cep/cep_loc_log.cfm'>CEP</a>
</td>
</tr>
<tr valign="top">
<td><b>Tipo</b></td>
<td><b>Cor</b></td>
<td><b>Pagamento</b><br>
</tr>
<tr valign="top" bgColor="buttonface">
<td nowrap>
 <input type="checkbox" name="tipo" value="T1" checked="checked"> T1<br>
 <input type="checkbox" name="tipo" value="T2"> T2<br>
 <input type="checkbox" name="tipo" value="T3"> T3<br>
</td>
<td nowrap>
 <input type="radio" name="cor" value="verde" checked="checked">Verde<br>
 <input type="radio" name="cor" value="vermelho">Vermelho<br>
 <input type="radio" name="cor" value="azul">Azul<br>
</td>
<td nowrap>
 <select name="Pagamento" size="1">
<option>Dinheiro</option>
<option>Visa</option>
<option>Master</option>
<option>Cheque</option>
<option selected="selected">Promessa de <!--#scripts.getInfo comHora=false --></option>
</select>
</td>
</tr>
<tr>
<td colspan="3" align="center"><b>Informação Adicional</b>
<textarea name="info" style="width:100%" rows="3" wrap="soft"><!--#scripts.getInfo comHora=true --></textarea>
</td>
</tr>
<tr bgColor="buttonface">
<td colspan="3" align="center">
<input type="submit" value="Gravar">  <input type="reset" value="Limpar"></td>
</tr>
</table>
<br>
</form>
</body>
</html>