4D v13
WR ON COMMAND
WR ON COMMAND
| WR ON COMMAND ( area ; metodo4D ) | ||||||||
| Parâmetro | Tipo | Descrição | ||||||
| area | Inteiro longo |
|
Área 4D Write | |||||
| metodo4D | cadeia |
|
Método de substituição | |||||
O comando WR ON COMMAND executa o método passado como metodo4D quando um comando 4D Write é chamado pelo usuário, seja pela seleção de um comando de menu ou mediante um clique em um botão. Se area é igual à zero, metodo4D será aplicado a todas as áreas 4D Write até que o banco de dados se feche ou até que seja feita a seguinte chamada a WR ON COMMAND(0;"").
metodo4D recebe dois parâmetros:
- $1 é um Inteiro longo que representa área.
- $2 é um Inteiro longo que indica o número do comando.
Nota: A lista de constantes e seus valores se encontram disponíveis no tema de constantes “WR Tabs”. Pode passar um nome de constante ou seu valor.
Quando utilize uma base compilada, é necessário declarar $1 e $2 como Inteiros longos, inclusive se não os usa.
Se desejar que o comando inicial se execute, deverá incluir o seguinte no método chamado: WR EXECUTE COMMAND($1;$2).
Você quer salvar seus documentos na pasta “Archive” localizada em seu disco duro:
C_LONGINT($1;$2)
Case of
:($2=wr cmd save as) `Se Salvar como... está selecionado
$DocName:=Request("De nome a seu documento: ")
If((OK=1) & ($DocName#""))
`Salvar o documento na pasta selecionada
WR SAVE DOCUMENT($1;"HDisk:Archives:"+$DocName) `Mac
WR SAVE DOCUMENT($1;"D:\Archives\"+$DocName) `Win
Else
BEEP `Algo não é correto
End if
Else `Para outro comando de menu
WR EXECUTE COMMAND($1;$2)
`Executar a ação padrão
End case
` Método de formulário:
If(Form event=On Load)
WR ON COMMAND(Area;"TheMethod")
End if
Produto: 4D
Tema: WR Controle da área
Número
89498
Criado por: 4D Write 6.5
WR EXECUTE COMMAND
WR Get on command method
