Form event

Form event retorna um valor númerico que identifica o tipo de evento de formulário que acaba de ocorrer. Geralmente, Form event são utilizados em um método formulário ou em um método objeto.

4D oferece constantes predefinidas (localizadas no tema Eventos de Formulários) para comparar os valores retornados pelo comando Form event.

Certos eventos são genéricos (gerados por todo tipo de objeto) e outros são específicos a um tipo de objeto particular.

Constante	Tipo	Valor	Comentário
On Load	Inteiro longo	1	O formulário está prestes a ser exibido ou impresso
On Mouse Up	Inteiro longo	2	(Apenas imagens) O usuário acabou de soltar o boto esquerdo do mouse em um objeto Imagem
On Validate	Inteiro longo	3	A entrada de dados foi validada
On Clicked	Inteiro longo	4	Ocorre um clique sobre um objeto
On Header	Inteiro longo	5	O cabeçalho do formulário está prestes a ser impresso ou exibido
On Printing Break	Inteiro longo	6	Uma das áreas de quebra do formulário está prestes a ser impressa
On Printing Footer	Inteiro longo	7	A área do rodapé do formulário está prestes a ser impressa
On Display Detail	Inteiro longo	8	Um registro está prestes a ser mostrado na lista
On Outside Call	Inteiro longo	10	O formulário recebe um chamado CALL PROCESS
On Activate	Inteiro longo	11	A janela de formulário vira a janela atual.
On Deactivate	Inteiro longo	12	A janela do formulário deixa de ser a janela atual
On Double Clicked	Inteiro longo	13	Ocorreu clique duas vezes num objeto
On Losing Focus	Inteiro longo	14	Um objeto do formulário está perdendo o foco
On Getting Focus	Inteiro longo	15	Um objeto do formulário tem o foco
On Drop	Inteiro longo	16	Os dados foram liberados no objeto
On Before Keystroke	Inteiro longo	17	Um caractere está prestes a entrar no objeto que tem o foco. Get edited text retorna o texto de objeto sem o caractere.
On Menu Selected	Inteiro longo	18	Um comando do menu foi selecionado
On Plug in Area	Inteiro longo	19	Um objeto externo solicitou que fosse executado o seu método de objeto
On Data Change	Inteiro longo	20	Os dados do objeto foram modificados
On Drag Over	Inteiro longo	21	Os dados podem ser liberados num objeto
On Close Box	Inteiro longo	22	Um clique ocorreu na caixa de fechar a janela.
On Printing Detail	Inteiro longo	23	A área de detalhe do formulário está prestes a ser impressa
On Unload	Inteiro longo	24	O formulário está prestes a ser fechado e liberado
On Open Detail	Inteiro longo	25	O formulário detalhado associado com o formulário de saída ou com o listbox está aponto de ser aberto
On Close Detail	Inteiro longo	26	O formulário de entrada é fechado e regressa ao formulário de saída
On Timer	Inteiro longo	27	O número de tiques definido pelo comando SET TIMER passou
On After Keystroke	Inteiro longo	28	Um caractere que vai ser inserido no objeto que tem o foco. Get edited text retorna o texto do objeto, incluindo esse caractere
On Resize	Inteiro longo	29	A janela do formulário é redimensionada
On After Sort	Inteiro longo	30	(List box only) Uma ordenação padrão foi realizada em uma list box coluna
On Selection Change	Inteiro longo	31	List box: é modificada a seleção atual de linhas ou colunas Registros na lista: é modificado o registro atual ou a seleção atual de linhas num formulário listado ou num subformulário Lista hierarquica: a seleção na lista é modificada após fazer clique ou pressionar uma tecla Variável ou campo editável (somente v12.x): a seleção de texto ou a posição do ponteiro na área é modificada ao clicar ou pressionar uma tecla.
On Column Moved	Inteiro longo	32	(List box apenas) O usuário move uma coluna de list box com arrastar e soltar.
On Column Resize	Inteiro longo	33	(List box apenas) A largura de uma coluna de list box é modificado por um usuário com o mouse
On Row Moved	Inteiro longo	34	(Somente List Box) O usuário move uma fileira de uma list box usando arrastar e soltar
On Mouse Enter	Inteiro longo	35	O ponteiro do mouse ingressa à área gráfica de um objeto
On Mouse Leave	Inteiro longo	36	O ponteiro do mouse sai da área gráfica de um objeto
On Mouse Move	Inteiro longo	37	O ponteiro do mouse se move (pelo menos um pixel). Ou quando se pressiona uma tecla de modificação (Ctrl, Alt, Caps Lock). Se o evento está selecionado para um objeto unicamente, é gerado só quando o cursor se encontra dentro da área gráfica do objeto
On Alternative Click	Inteiro longo	38	(3D buttons only) A área “flecha” do botão 3D é clicado. List boxes: nuna coluna de um array objeto, um botão de reticências (atributo "alternateButton") recebe um clique Note: Botões de Elipse estão disponíveis apenas nas versões v15 ou superior.
On Long Click	Inteiro longo	39	(Somente botões 3D) Um botão 3D é clicado e o botão do mouse permanece pressionado por um instante
On Load Record	Inteiro longo	40	No modo de entrada em lista, enquanto é modificado, um registro é carregado (o usuário clica numa linha do registro e um campo passa ao modo de edição)
On Before Data Entry	Inteiro longo	41	(List box only) Uma célula de list box está prestes a mudar para modo editar
On Header Click	Inteiro longo	42	(Somente list box) Ocorre um clique num cabeçalho de coluna do list box
On Expand	Inteiro longo	43	(Somente listas hierarquicas ) Um elemento da lista hierarquica foi expandido fazendo clique ou utilizando uma tecla
On Collapse	Inteiro longo	44	(Listas hierárquicas apenas) Um elemento da lista hierárquica foi contraído através de um clique ou uma tecla.
On After Edit	Inteiro longo	45	Os conteúdos do objeto editável que tem o foco foram modificados.
On Begin Drag Over	Inteiro longo	46	Um objeto está sendo arrastado
On Begin URL Loading	Inteiro longo	47	(apenas Web areas) Uma nova área URL é carrega na área WEb
On URL Resource Loading	Inteiro longo	48	(Somente áreas web) Um novo recurso é carregado na área web
On End URL Loading	Inteiro longo	49	(Somente áreas web) Todos os recursos da URL foram carregados
On URL Loading Error	Inteiro longo	50	(Somente áreas web) Ocorreu um erro quando a URL estava sendo carregada
On URL Filtering	Inteiro longo	51	(Somente áreas web) Uma URL foi bloqueada pela área web
On Open External Link	Inteiro longo	52	(Somente áreas web) Foi aberta uma URL externa no navegador
On Window Opening Denied	Inteiro longo	53	Uma janela pop-up foi bloqueada
On bound variable change	Inteiro longo	54	A variável relacionada a um subformulário é modificada.
_o_On Mac toolbar button	Inteiro longo	55	* Constante obsoleta *
On Page Change	Inteiro longo	56	A página atual do formulário foi mudada
On Footer Click	Inteiro longo	57	(Somente List box) um clique ocorreu no pé de uma list box ou coluna de list box
On Delete Action	Inteiro longo	58	(Listas hierárquicas e List box somente) O usuário é solicitado a remover um item
On Scroll	Inteiro longo	59	O usuário desloca o conteúdo de um campo ou de uma variável imagem utilzando o mouse ou uma tecla.

Nota: os eventos específicos de formulários de saída não podem utilizar-se em formularios projeto. Estes são: On Display Detail, On Open Detail, On Close Detail, On Load Record, On Header, On Printing Detail, On Printing Break, On Printing Footer.

Quando ocorre um evento de formulário, 4D efetua as seguintes ações:

    Primeiro, examina os objetos do formulário e chama o método de objeto para qualquer objeto (envolvido no evento) cuja propriedade de evento de objeto correspondente tenha sido selecionada.
    Segundo, chama o método de formulário se a propriedade do evento de formulário correspondente foi selecionada.

Não assuma que os métodos de objeto, se houver, serão chamados numa ordem particular. A regra é que os métodos de objeto sempre são chamados antes do que os métodos de formulário. Se um objeto é um subformulário, primeiro são chamados os métodos de objeto do formulário de saída do subformulário e depois o método de formulário do formulário de saída. 4D continua depois chamando aos métodos do formulário pai. Em outras palavras, quando um objeto está num subformulário, 4D utiliza a mesma regra para os métodos de objeto e formulário em subformulários.
Com excepção dos eventos On Load e On Unload, se a propriedade de evento de formulário não estiver selecionada para um determinado evento, isto não impede que ocorram as chamadas aos métodos de objeto para os objetos cuja propriedade de evento estiver selecionada. Em outras palavras, a ativação ou desativação de um evento no nível do formulário não tem efeito nas propriedades do evento do objeto.

O número de objetos envolvidos num evento, depende da natureza do evento:

    Evento On Load - os métodos de objeto de todos os objetos do formulário (de todas as páginas) que tenham selecionada a propriedade de evento On Load serão chamados. Então, se a propriedade do evento On Load for selecionada, o método de formulário será chamado.
    Eventos On Activate ou On Resize - nenhum método de objeto será chamado porque este evento aplica ao formulário como um todo e não como um objeto em particular. Portanto, se o evento de formulário On Activate estiver selecionado, somente será chamado o método do formulário.
    Evento On Timer - este evento é gerado somente se o método de formulário contém uma chamada anterior para o comando SET TIMER. Se a propriedade de evento de formulário On Timer, somente o método de formulário receberá o evento, não se chamará ao método de formulário.
    Evento On Drag Over, - somente será chamado o método do objeto soltável envolvido no evento (se a propriedade de evento "soltável" estiver selecionada para o objeto). Não se chamará o método do formulário.
    Pelo contrário, para o evento   On Begin Drag over,, se chamará o método do objeto ou o método do formulário do objeto arrastado (se a propriedade do evento "Arrastável" estiver selecionada para o objeto).

AVISO: Ao contrário de outros eventos, durante um evento On Begin Drag over, o método chamado é executado no contexto do processo de arrastar e soltar do objeto fonte, não no contexto do processo de arrastar e soltar o objeto de destino. Para maior informação, consulte a seção Arrastar e Soltar

    Se os eventosOn Mouse Enter, On Mouse Move e On Mouse Leave foram selecionados para o formulário, são gerados para cada objeto do formulário. Se estiverem selecionados para um objeto, são gerados somente para o objeto. No caso de superposição de objetos, o evento é gerado pelo primeiro objeto capaz de gerenciá-lo que se encontre do nível superior ao mais baixo. Os objetos que se fizeram invisíveis utilizando o comando OBJECT SET VISIBLE não geram estes eventos. Durante a entrada de dados, outros objetos podem receber este tipo de eventos dependendo da posição do mouse.
    Note que o evento On Mouse Move é gerado quando o cursor do mouse se mexe mas também quando o usuário pressiona uma tecla de modificação como Maiús, Caps Lock, Ctrl ou Opção (isto permite manipular as operações de arrastar e soltar de tipo copia o deslocamento).
    Registros em lista: a sequência de chamadas a métodos e eventos de formulários nos formulários listados exibidos viaDISPLAY SELECTION / MODIFY SELECTION e os subformularios é a seguinte:

Para cada objeto da área de cabeçalho:

Método objeto com evento On Header

Método formulário com evento On Header

Para cada registro:

Para cada objeto na área de detalhe:

Método de objeto com evento On Display Detail

Método de formulário com evento On Display Detail

Não se permite chamar um comando 4D que amostre uma caixa de diálogo apartir dos eventos On Display Detail e On Header e gera um erro de sintaxe. Mais particularmente, os comandos relacionados são: ALERT, DIALOG, CONFIRM, Request, ADD RECORD, MODIFY RECORD, DISPLAY SELECTION e MODIFY SELECTION.

On Page Change: este evento somente está disponível ao nível dos formulários (é chamado no método formulário). É gerado toda vez que a página atual do formulário (seguido de uma chamada ao comando FORM GOTO PAGE ou de uma ação padrão de navegação). Note que o evento é gerado após a página carregar completamente, quer dizer, quando todos os objetos que contém tiverem sido inicializados (incluindo as áreas web). Este evento é útil para executar código que necessite que todos os objetos sejam inicializados de antemão. Também pode usar esse comando para otimizar a aplicação ao executar código (por exemplo, uma pesquisa) apenas depois da exibição de uma página específica do formulário e não imediatamente ao carregar a página.

1. Se o usuário não acessar a página, o código não será executado.

A seguinte lista faz um resumo de como são chamados os métodos de formulário e objetos para cada tipo de evento:

Evento	Métodos de objeto	Método de formulario	Que objetos
On Load	Sim	Sim	Todos
On Unload	Sim	Sim	Todos
On Validate	Sim	Sim	Todos
On Clicked	Sim (se clicável ou editável) (*)	Sim	Apenas o objeto implicado
On Double Clicked	Sim (se clicável ou editável) (*)	Sim	Apenas o objeto implicado
On Before Keystroke	Sim (se editável) (*)	Sim	Apenas o objeto implicado
On After Keystroke	Sim (se editável) (*)	Sim	Apenas o objeto implicado
On After Edit	Sim (se editável) (*)	Sim	Apenas o objeto implicado
On Getting Focus	Sim (se tabulável) (*)	Sim	Apenas o objeto implicado
On Losing Focus	Sim (se tabulável) (*)	Sim	Apenas o objeto implicado
On Activate	Nunca	Sim	Nenhum
On Deactivate	Nunca	Sim	Nenhum
On Outside Call	Nunca	Sim	Nenhum
On Begin drag over	Sim (se arrastável) (**)	Sim	Apenas o objeto implicado
On Drop	Sim (se soltável) (**)	Sim	Apenas o objeto implicado
On Drag Over	Sim (se soltável) (**)	Nunca	Apenas o objeto implicado
On Mouse Enter	Sim	Sim	Todos
On Mouse Move	Sim	Sim	Todos
On Mouse Leave	Sim	Sim	Todos
On Menu Selected	Nunca	Sim	Nenhum
On bound variable change	Nunca	Sim	Nenhum
On Data Change	Sim (se modificável) (*)	Sim	Apenas o objeto implicado
On Plug in Area	Sim	Sim	Apenas o objeto implicado
On Header	Sim	Sim	Todos
On Printing Detail	Sim	Sim	Todos
On Printing Break	Sim	Sim	Todos
On Printing Footer	Sim	Sim	Todos
On Close Box	Nunca	Sim	Nenhum
On Display Detail	Sim	Sim	Todos
On Open Detail	Não, exceto para List boxes	Sim	Nenhum exceto List box
On Close Detail	Não, exceto para List boxes	Sim	Nenhum exceto List box
On Resize	Nunca	Sim	Nenhum
On Selection Change	Sim (***)	Sim	Só o objeto implicado
On Load Record	Nunca	Sim	Nenhum
On Timer	Nunca	Sim	Nenhum
On Scroll	Sí	Nunca	Apenas o objeto implicado
On Picture Scroll	Sim	Sim	Apenas o objeto implicado
On Before Data Entry	Sim (List box)	Nunca	Apenas o objeto implicado
On Column Moved	Sim (List box)	Nunca	Apenas o objeto implicado
On Row Moved	Sim (List box)	Nunca	Apenas o objeto implicado
On Column Resize	Sim (List box)	Nunca	Apenas o objeto implicado
On Header Click	Sim (List box)	Nunca	Apenas o objeto implicado
On After Sort	Sim (List box)	Nunca	Apenas o objeto implicado
On Long Click	Sim (Botón 3D)	Sim	Apenas o objeto implicado
On Alternative Click	Sim (Botón 3D y list box)	Nunca	Apenas o objeto implicado
On Expand	Sim (Lista jerárq.)	Nunca	Apenas o objeto implicado
On Collapse	Sim (Lista jerárq.)	Nunca	Apenas o objeto implicado

(*) Para mais informação, ver "Eventos, objetos e propriedades" abaixo.

(**) Consulte "Arrastar e Soltar" para saber mais.
(***) Só os objetos de tipo list box, lista hierárquica e subformulario suportam este evento.

IMPORTANTE: sempre lembre que, para qualquer evento, o método de um formulário ou de um objeto são chamadas se o evento correspondente é selecionado para o formulário ou objeto. O benefício de desativar eventos no ambiente Desenho (usando a LIsta de propriedades do editor de formulários) é que você pode reduzir de maneira importante o número de chamadas a métodos e portanto otimizar de maneira significativa a velocidade de executar seus formulários.

Aviso: os eventos On Load e On Unload são gerados por objetos se estiverem ativados para o objeto e o formulário ao qual pertence o objeto. Se os eventos estiverem ativados para o objeto apenas, nao ocorrerao; estes dois eventos também devem ser ativados ao nível do formulario.

Um método de objeto é chamado se o evento pode realmente ocorrer para o objeto, dependendo de sua natureza e propriedades. A seguinte seção detalha os eventos que você fará uso geralmente para lidar com os diferentes tipos de objetos.

Lembre que a Lista de propriedades do editor de formulários somente mostra os eventos compatíveis com o objeto selecionado ou o formulário.

Os objetos clicáveis são gerenciáveis principalmente com o mouse. São os seguintes:

Variáveis ou campos editáveis booleanas
Botões, botões padrão, botões de rádio, caixas de seleção, grades de botão
Botões 3D, botões de opção 3D, caixas de seleção 3D
Menus suspensos, menus hierárquicos drop down, menus de imagem
Listas drop-down, menus
Áreas de deslocamento, listas hierárquicas, list box
Botões invisíveis, botões reversa, botões opção imagem
Termômetros, réguas, mostradores (também conhecidos como objetos deslizante)
Abas
Separadores.

QuandoOn Clicked ou On Double Clicked é selecionado para um desses objetos, você pode detectar e lidar com os cliques sobre o objeto, usando o comando Form event que retorna On Clicked ou On Double Clicked,dependendo do caso.
Se ambos os eventos são selecionados para um objeto, os eventos On Clicked e On Double Clicked serão gerados quando o usuário clicar duas vezes no objeto.
Nota: A partir da v14, campos e Variáveis editáveis que o contém texto (tipo texto, datas, hora ou número) também geram eventos On Clicked e On Double Clicked.

Para todos esses objetos, o evento On Clicked ocorre uma vez o botão do mouse seja liberado. No entanto, existem várias exceções:

Botões invisíveis - O evento On Clicked ocorre assim que você clicar e não esperar que o botão do mouse seja liberado.
objetos deslizáveis (termômetros, réguas, e mostradores) - Se o formato de saída indicar que o método de objeto deve ser chamado enquanto você desliza o controle, o evento On Clicked ocorre assim que você clicar.

No contexto do evento On Clicked, você pode testar o número de cliques feitos pelo usuário utilizando o comando Clickcount.

Nota: Alguns destes objetos pode ser ativados com o teclado. Por exemplo, uma vez que uma caixa de seleção receber o foco, pode ser selecionada usando a barra de espaço. Neste caso, é gerado um evento On Clicked.

Aviso: os combo boxes não são considerados objetos clicáveis. Um combo box deve ser tratado como uma área de texto editável cuja lista suspensa associada fornece valores padrão. Portanto, você pode lidar com a entrada de dados em um combo box com a ajuda de eventos On Before Keystroke, On After Keystroke e On Data Change.

Os objetos editáveis por teclado são objetos nos quais você introduz dados utilizando o teclado e para os quais pode filtrar os dados de entrada ao menor nível detectando os eventos On After Edit, On Before Keystroke, On After Keystroke e On Selection Change.

Os objetos e tipos de dados editáveis são os seguintes:

Todos os campos editáveis do tipo alfa, texto, data, hora, numérico ou (On After Edit somente) imagem
Todas las variáveis editáveis do tipo alfa, texto, data, hora, numérico ou (On After Edit somente) imagem
Combo boxes (com exceção de On Selection Change)
Listboxes.

Nota: A partir de 4D v14, os campos e variáveis editáveis que contém texto (tipo texto, data, hora ou número) também geram os eventos On Clicked e On Double Clicked.

Nota: Mesmo sendo objetos “editáveis”, as listas hierárquicas não dirigem os eventos formulário On After Edit, On Before Keystroke e On After Keystroke (Veja também o parágrafo “Listas hierárquicas” a seguir).

On Before Keystroke e On After Keystroke

Nota: o evento On After Keystroke pode geralmente ser substituído pelo evento On After Edit (veja a seguir).

Assim que os eventos On Before Keystroke e On After Keystroke tenham sido selecionados para um objeto, pode detectar e gerenciar as pulsações de teclas no objeto, fazendo uso do comando Form event que retornará On Before Keystroke e depois On After Keystroke (para maior informação, consulte a descrição do comando Get edited text). Estes eventos também são ativados por comandos de linguagem que simulam a ação do usuário, tais como POST KEY.

Lembre que as modificações do usuário que não são realizadas fazendo uso do teclado (colar, arrastar-soltar, etc.) não são tidas em conta. A fim de processar estes eventos, deverá utilizar On After Edit.

Nota: Os eventos On Before Keystroke e On After Keystroke não são gerados durante a utilização de um método de entrada. Um método de entrada (ou IME, Input Method Editor) é um programa ou um componente sistema que pode ser utilizado para introduzir caracteres complexos ou símbolos (por exemplo, chineses ou japoneses) utilizando um teclado ocidental.

On After Edit
Quando utilizado, este evento é gerado depois de toda alteração feita ao conteúdo de um objeto editável, sem importar a ação que originou a alteração, Quer dizer:
- As ações de edição padrão que modificam o conteúdo tais como colar, cortar, apagar ou cancelar;
- Soltar um valor (ação similar a colar);
- Toda entrada de teclado realizada pelo usuário; neste caso, o evento On After Edit é gerado depois dos eventos On Before Keystroke e On After Keystroke, se utilizados.
- Toda modificação realizada utilizando um comando de linguagem que estimule una ação de usuário (por exemplo POST KEY).
Atenção, as seguintes ações NÃO ativam este evento:
- As ações de edição que não modificam o conteúdo da área, como copiar ou selecionar tudo, ou arrastar um valor (ação semelhante a copiar); contudo, estas ações modificam a localização do cursor e desencadeiam o evento On Selection Change.
- As modificações aos conteúdos por programação, com exceção para os comandos que simulam uma ação do usuário.
Este evento pode ser utilizado para controlar ações de usuário a fim de prevenir que colem um texto muito longo, bloquear alguns caracteres ou evitar que um campo de senha seja cortado.

On Selection Change: Quando aplicado a um campo ou variável de texto dinâmico (editável ou não), este evento é ativado toda vez que a posição do cursor muda. Isto acontece por exemplo, assim que o usuário seleciona o texto utilizando o mouse ou as teclas de seta do teclado, ou quando o usuário introduz texto. Isto lhe permite chamar, por exemplo, comandos tais como GET HIGHLIGHT.

Os objetos modificáveis tem uma fonte de dados cujos valores podem ser modificados utilizando o mouse ou o teclado; não são considerados verdadeiramente como controles de interface de usuário controlados através do evento On Clicked. Estes objetos são os seguintes:

Todos os campos editáveis (com exceção dos BLOBs)
Todas as variáveis editáveis (com exceção dos BLOBs, ponteiros e arrays)
Combo boxes
Objetos externos (para os quais a entrada de dados é validada pelo plug-in)
Listas hierárquicas
Listboxes e colunas de list box.

Estes objetos recebem eventos On Data Change. Quando o evento On Data Change estiver selecionado para um destes objetos, você pode detectar e gerenciar a mudança dos valores da fonte de dados, utilizando o comando Form event que retornará On Data Change. O evento é gerado assim que a variável associada com o objeto seja atualizada internamente por 4D (geralmente, quando a área de entrada do objeto perde o foco).

Os objetos tabuláveis obtém o foco quando utiliza a tecla Tab para chegar a eles e/ou quando faz clique neles. O objeto que tem o foco recebe os caracteres (digitados no teclado) que não são modificadores de um comando de menu ou de um objeto como um botão.

Todos os objetos são tabuláveis, COM EXCEPÇÃO dos seguintes:

Variáveis ou campos não editáveis
Grades de botões
Botões 3D, botões opção 3D, caixas de seleção 3D
Menus drop-down, menus hierárquicos drop-down
Menus/listas drop-down
Menus imagem
Áreas de deslocamento
Botões invisíveis, botões inversos, botões opção imagem
Gráficos
Objetos externos (para os quais a entrada de dados é aceitada pelo plug-in 4D)
Tabs
Separadores.

Quando os eventos On Getting Focus e/ou On losing Focus são selecionados para um objeto tabulável, você pode detectar e gerenciar a mudança de foco, fazendo uso do comando Form event que retornará On Getting Focus ou On losing Focus, dependendo do caso.

Os botões 3D permitem estabelecer interfaces gráficas avançadas (para uma descrição dos botões 3D, consulte o Manual de Desenho). Além dos eventos genéricos, dois eventos específicos podem ser utilizados para gerenciar estes botões:

On Long Click: este evento é gerado quando um botão 3D recebe um clique e o botão do mouse é pressionado por um certo período de tempo. Na teoria, o período de tempo para o qual este evento é gerado é igual ao comprimento máximo de tempo que separa um duplo clique, conforme definido nas preferências do sistema.
Este evento pode ser gerado por todos os estilos de botões 3D, botões de opção 3D y caixas de seleção 3D, com excepção dos botões 3D de “velha geração” (estilo offset de fundo) e as áreas de setas de botões 3D com menus suspensos (veja a seguir).

Este evento é utilizado geralmente para mostrar menus suspensos no caso de cliques longos nos botões. O evento On Clicked, se estiver selecionado, será gerado se o usuário liberar o botão do mouse antes do tempo limite do “clique longo”.

On Alternative Click alguns estilos de botões 3D podem estar associados a um menu suspenso e mostrar uma seta. Clicar nesta seta faz com que seja exibida uma caixa de seleção que oferece um conjunto de ações adicionais em relação com a ação principal do botão.

4D permite gerenciar este tipo de botão utilizando o evento On Alternative Click.Este evento é gerado quando o usuário clica na “seta” (assim que o botão do mouse seja pressionado):

- Se o menu suspenso for do tipo “separado,” o evento somente é gerado quando um clique ocorre na parte do botão com a seta.

- Se o menu suspenso for do tipo “ligado,” o evento é gerado quando ocorre um clique em qualquer parte do botão. Por favor tenha em conta que o evento On Long Click não pode ser gerado com este tipo de botão.

Os estilos de botões 3D, botões de opção 3D e caixas de seleção 3D que aceitam a propriedade “Com menu suspenso” são: Nenhum, Botão de barra, Bevel, Bevel arredondado e Office XP.

Vários eventos de formulário podem ser utilizados para gerenciar as diferentes características específicas dos list box:

On Before Data Entry: este evento é gerado pouco antes que uma célula de list box seja editada (antes de que o cursor de entrada apareça). Este evento permite ao desenvolvedor por exemplo, mostrar um texto diferente dependendo de que o usuário esteja em modo visualização ou em modo edição.
On Selection Change: este evento é gerado sempre que a seleção atual de linhas ou colunas de list box são alteradas. Esse evento também é gerado para listas de registros e listas hierárquicas.
On Column Moved: este evento é gerado quando uma coluna de list box é movida pelo usuário usando arrastar e soltar. O evento não é gerado se a coluna é arrastada e soltada para a sua localização inicial. O comando LISTBOX MOVED COLUMN NUMBER retorna a posição nova coluna.
On Row Moved: este evento é gerado quando uma linha de list box é movida pelo usuário usando arrastar e soltar. O evento não é gerado se a linha é arrastada e soltada para a sua localização inicial.
On Column Resize: este evento é gerado quando quando o comprimento de uma coluna no list box for mudado por um usuário. A partir de 4D v16, o evento é ativado "ao vivo", ou seja, enviando continuamente durante o evento, por tanto tempo quanto a list box ou coluna em questao esteja sendo redimensionada. O redimensionamento é realizado manualmente pelo usuário, ou pode acontecer como resultado do list box e suas colunas sendo redimensionadas junto com a janela de formulário (se o formulário for redimensionado manualmente ou usando o comando RESIZE FORM WINDOW).
Nota: O evento On Column Resize nao é ativado quando uma coluna "falsa" for redimensionada (para saber mais sobre colunas falsas, veja Redimensionar tema Opcoes).
On Expand e On Collapse: esses eventos são gerados quando uma linha de listbox hierárquico se expande ou contrai.
On Header Click: este evento é gerado quando ocorre um clique no cabeçalho de uma coluna no list box. Neste caso, o comando Self lhe permite conhecer o cabeçalho da coluna na que foi feito clique. O evento On Clicked é gerado quando um clique direito (Windows) ou Ctrl+clique (Mac OS) ocorre em uma coluna ou em um cabeçalho de coluna. Pode testar o número de cliques realizados pelo usuário utilizando o comando Clickcount.
Se a propriedade Ordenavel foi selecionada para a list box, você pode decidir se permite ou não uma ordenação padrão da coluna passando o valor 0 ou -1 na variável $0:
- Se $0 for igual a 0, se realiza a ordenação padrão
- Se $0 for igual a -1, não se realiza a ordenação padrão e o cabeçalho não é mostrada a flecha de ordenação. O desenvolvedor pode também gerar uma ordenação das colunas baseada em critérios de ordenação personalizados usando os comandos de gestão de arrays de 4D.
Se a propriedade Ordenavel não estiver selecionada para a list box, a variável $0 não é utilizada.
On Footer Click: este evento está disponível para o objeto list box ou coluna de list box. É gerado quando ocorre um clique no rodapé de um list box ou de uma coluna de list box. Neste caso, o comando OBJECT Get pointer retorna um ponteiro à variável do rodapé onde se fez o clique. O evento é gerado para clique esquerdo e direito.
Pode testar o número de cliques realizados pelo usuário utilizando o comando Clickcount.
On After Sort: este evento é gerado logo depois de realisar uma ordenação padrão (entretanto, não é gerada se $0 devolver -1 no evento On Header Click). Este mecanismo é útil para conservar os sentidos das últimas ordenações efetuadas pelo usuário. Neste evento, o comando [#cmd id="308"/] retorna um ponteiro à variável da coluna que foi ordenada.
On Delete Action: este evento é gerado cada vez que o usuario tenta apagar os elementos selecionados pressionando a tecla Deletar (Del ou Backspace) ou selecionando um elemento de menu cuja ação padrão associada seja Apagar (tal como o comando Eliminar do menu Edicição. Este evento só está disponível a nivel do objeto list box. Note que gerar o evento é a única ação realizada por 4D: o programa não apaga os elementos. O desenvolvedor deve manejar a eliminaçao e as mensagens de aviso prévio que sejam mostradas.
On Scroll (novo na v15): Este evento é gerado assim que o usuário move as filas ou colunas da lista. O evento é gerado somente quando a mudança é o resultado de uma ação do usuário: usando barras e / ou setas de rolagem, roda do mouse ou teclado. Ele não é gerado quando a mudança é devida à execução do comando OBJECT SET SCROLL POSITION .
Esse evento é acionado após qualquer outr evento de usuário relacionado ação de rolagem (On Clicked, On After Keystroke, etc.). O evento só é gerado no método objeto (não no método de formulário). Ver Exemplo 15.
On Alternative Click(novo na v15): Este evento é gerado nas colunas de list box de tipo array de objetos quando o usuário clicar em um botão reticências de Widget (atributo "alternateButton"). Para obter mais informações, consulte Using object arrays in columns (4D View Pro)

Dois eventos genéricos também pode ser usados no contexto de um list box de tipo "seleção":

On Open Detail:: Este evento é gerado quando um registro está prestes a ser mostrado no formulário detalhado associado ao list box de tipo " seleção" (e antes que este formulário seja aberto).
On Close Detail Este evento é gerado quando um registro exibido no formulário detalhado associado ao list box esteja prestes a ser fechado (independentemente de se o registro foi modificado ou não).

Além dos eventos genéricos, vários eventos específicos podem ser utilizados para administrar as ações que os usuários nas listas hierárquicas:

On Selection Change: este evento se genera cada vez que la selección en la lista jerárquica se modifica después de un clic o de que se presione una tecla.
Este evento también es generado en los objetos list box y listas de registros.
On Expand: este evento se genera cada vez que un elemento de la lista jerárquica se despliega con un clic o al presionar una tecla.
On Collapse: este evento se genera cada vez que un elemento de la lista jerárquica se contrae con un clic o al presionar una tecla.
On Delete Action: este evento se genera cada vez que el usuario intenta borrar los elementos seleccionados presionando una tecla de supresión (Supr o Retroceso) o seleccionando el comando Eliminar del menú Edición. Note que la generación del evento es la única acción efectuada por 4D: el programa no borra ningún elemento. El desarrollador debe encargarse de la eliminación y de todos los mensajes de alerta que aparezcan (ver el ejemplo).

Estos eventos no son mutuamente exclusivos. Pueden generarse uno después del otro para una lista jerárquica:

- En respuesta a presionar una tecla (en orden):

	Evento	Contexto
	On Data Change	Un elemento estaba en edición
	On Expand/On Collapse	Apertura/cierre de una sublista utilizando las teclas de flechas -> o <-
	On Selection Change	Selección de un nuevo elemento
	On Clicked	Activación de la lista utilizando el teclado

- En respuesta a un clic (en orden):

	Evento	Contexto
	On Data Change	Un elemento estaba en edición
	On Expand/On Collapse	Apertura/cierre de una sublista utilizando los iconos de despliegue/contracción o
		Doble-clic en una sublista no editable
	On Selection Change	Selección de un nuevo elemento
	On Clicked / On Double Clicked	Activación de la lista por un clic o un doble clic

O evento formulário On Picture Scroll é gerado assim que o usuário desloca uma imagem dentro da área (campo ou variável) que o contém. Pode deslocar o conteúdo de uma área imagem quando o tamanho da área é menor a seu conteúdo e o formato de visualização é "Truncado (não centrado)". Para maior informação, consulte Formatos Imagem.
O evento é gerado quando o deslocamento é o resultado de uma ação do usuário: utilizando os cursores ou as barras de deslocamento, utilizando a roda do mouse ou as teclas de deslocamento do teclado (para maior informação sobre o deslocamento utilizando o teclado, consulte Barra de rolagem). Este evento não é gerado quando o objeto se desloca pela execução do comando OBJECT SET SCROLL POSITION . Este evento se dispara depois que um evento de usuário relacionado com a ação de eslocamentonão seja gerado (On Clicked, On After Keystroke, etc.). .É gerado no método objeto (e não no método formulário). Consulte o exemplo 14

(Novo em v16) O evento On Mouse Up é gerado quando o usuário acabou de soltar o botão esquerdo do mouse enquanto arrastando em uma area de imagem (campo ou variável). Este evento é útil, por exemplo, quando quiser que o usuário possa mover, redimensionar ou desenhar objetos em uma área SVG.
Quando o evento On Mouse Up for gerado, pode obter as coordenadas locais quando o botão do mouse for solto. Estas coordenadas são retornadas em MouseX e MouseY Variáveis sistema. As coordenadas são expressas em pixels em relação ao canto esquerdo superior da imagem (0,0).
Quando usar este evento, deve chamar o comando Is waiting mouse up para manejar casos onde o estado gerente do formulário poderia estar dessincronizado. Este é o caso, por exemplo, quando uma caixa de diálogo de alerta for exibida acima do formulário enquanto o botão do mouse ainda não foi solto. Para saber mais e ver um exemplo de uso do evento On Mouse Up, veja a descrição do comando Is waiting mouse up.

Nota: se a opção "arrastável" não estiver marcada para o objeto de imagem, o evento On Mouse Up nunca é gerado.

Um objeto de conteúdo do sub-formulário (objeto incluído no formulário pai contém uma instância do sub-formulário) suporta os seguintes eventos:

On Load e On Unload: abertura e fechamento do sub-formulário respectivamente (esses eventos também devem ser ativados no pai do formulário para que eles sejam tidos em conta). Observe que esses eventos são gerados antes do formulário pai. Além disso, observe que de acordo com os princípios de funcionamento dos eventos de formulário, se o sub-formulário está localizado em uma página diferente de 0 ou 1, esses eventos só irão gerar quando a página é exibida/fechada (e não quando o formulário é exibido/fechado).
On Validate: validação da entrada com o sub-formulário.
On Data Change: O valor da variável do objeto de conteúdo do sub-formulário foi modificado.
On Getting Focus e On Losing Focus: o conteúdo do sub-formulário acaba de receber ou perder o foco. Esses eventos são gerados no método do objeto sub-formulário quando eles são selecionados. Enviam para o formulário do método sub-formulário, que significa por exemplo que você pode gerenciar a visualização dos botões de navegação no sub-formulário em função do foco. Observe que os próprios objetos do sub-formulário podem ter o foco.
On bound variable change: este evento específico é gerado no contexto do método de formulário do sub-formulário assim que um valor é atribuído à variável associado com o sub-formulário no formulário pai (mesmo se o mesmo valor é retribuído) e se o sub-formulário pertence à página do formulário atual ou a página 0. Para obter maior informação sobre a gestão de sub-formulários, consulte o manual de Desenho.

Nota: É possível definir todos os tipos de eventos personalizados que podem ocorrer em um sub-formulário através do comando CALL SUBFORM CONTAINER. Este comando lhe permite chamar o método do objeto de recipiente e passar um código de evento.

Nota: Os eventos On Clicked e On Double Clicked gerados no sub-formulário são recebidos em primeiro lugar pelo método formulário do sub-formulário e logo pelo método formulário do formulário local.

Existem sete eventos para formulários especificamente disponíveis para as zonas de web:

On Begin URL Loading: este evento ocorre ao início da carga de um nuevo URL na área Web. A variável "URL" associada com a área web permite conhecer o URL que está carregando.
Nota: O URL que está carregando é diferente do URL atual (consulte a descrição do comando WA Get current URL).
On URL Resource Loading: este evento ocorre cada vez que carga um novo recurso (imagem, moldura, etc.) na página web atual. A variável "Progressão" associada a área lhe permite buscar o estado atual da carga.
On End URL Loading: este evento ocorre quando todos os recursos da URL atual são carregados. Você pode chamar o comando WA Get current URL para conhecer a URL carregada.
On URL Loading Error: este evento ocorre quando um erro é detectado ao carregar uma URL. Você pode chamar o comando WA GET LAST URL ERROR para obter informações sobre o erro.
On URL Filtering: este evento ocorre quando a carga de um URL é bloqueada pela área web devido a um filtro definido utilizando o comando WA SET URL FILTERS. Pode conhecer o URL bloqueado utilizando o comando WA Get last filtered URL.
On Open External Link: este evento ocorre quando a carga de um URL é bloqueada pela área Web e o URL é aberto com o navegador do sistema atual, devido a um filtro definido utilizando o comando WA SET EXTERNAL LINKS FILTERS. Pode conhecer o URL bloqueado utilizando o comando WA Get last filtered URL.
On Window Opening Denied: este evento ocorre quando ao abrir uma janela pop-up ela se bloqueia para a área Web. As áreas web 4D não permitem a abertura de janelas pop-up. Pode conhecer o URL bloqueado utilizando o comando WA Get last filtered URL.

Este exemplo mostra o evento On Validate utilizado para atribuir automaticamente (a um campo) a fecha quando o registro é modificado:

  ` Método de um formulário

 Case of

  ` ...

    :(Form event=On Validate)

       [unaTabla]Data que foi modificado:=Current date

 End case

Neste exemplo, a gestão completa de um menú drop-down, (inicialização, clics do usuário, e liberação de objeto) está encapsulado no método de objeto:

  ` Método de objeto do menú drop-down tama

 Case of

    :(Form event=On Load)

       ARRAY STRING(asTalla;3)

       tama{1}:="pequena"

       tama{1}:="media"

       tama{1}:="grande"

    :(Form event=On Clicked)

       If(tama#0)

          ALERT("Escolheu um hamburguer "+tama{tama})

       End if

    :(Form event=On Unload)

       CLEAR VARIABLE(tama)

 End case

Este exemplo mostra como aceitar e administrar uma operação de arrastar e soltar para um objeto de campo que aceita somente valores de imagens, em um método de objeto.

  ` Método de objeto de campo Imagem [umatabela]umaImagem

 Case of

    :(Form event=On Drag Over)

  ` Ha iniciado uma operação arrastar e soltar e o mouse está sobre o campo

  ` Obter a informação sobre o objeto fonte

       DRAG AND DROP PROPERTIES($vpObjetoOrigem;$vlElementoOrigem;$lProcessoOrigem)

  ` Note que não necessitamos provar o número de processo fonte

  ` para o método de objeto executado ja que é o mesmo processo

       $vlTipoDados:=Type($vpObjetoOrigem->)

  ` ¿Os dados fonte são uma imagem (campo, variável ou array)?

       If(($vlTipoDados=Is picture)|($vlTipoDados=Picture array))

  ` Sim é assim, aceite o arrastar.

  ` Note que o botão do mouse ainda está pressionado, o único efeito ainda

  ` aceita o arrastar permitindo a 4D ressaltar o objeto de maneira que o usuario

  ` saiba que os datos fonte possam ser soltados neste objeto.

          $0:=0

       Else

  ` Caso contrario, rejeite o arrastar

          $0:=-1

  ` Neste caso, o objeto não ressalta

       End if

    :(Form event=On Drop)

  ` Os dados fonte foram soltos sobre o objeto, portanto necessitamos copiar-los no objeto

  ` Obter a informação sobre o objeto fonte

       DRAG AND DROP PROPERTIES($vpObjetoOrigem;$vlElementoOrigem;$lProcessoOrigem)

       $vlTipoDatos:=Type($vpObjetoOrigem->)

       Case of

  ` O objeto fonte é um campo ou uma variável tipo imagem

          :($vlTipoDados=Is picture)

  ` O objeto fonte é do mesmo processo (da mesma janela e formulário)?

             If($lProcessoOrigem=Current process)

  ` Se é assím, copiar o valor fonte

                [aTabela]aImagem:=$vpObjetoOrigem->

             Else

  ` Se não, o objeto fonte é uma variável?

                If(Is a variable($vpObjetoOrigem))

  ` Se é assim, obter o valor do processo fonte

                   GET PROCESS VARIABLE($lProcessoOrigem;$vpObjetoOrigem->;$vgImagemArrastada)

                   [aTabela]aImagem:=$vgImagemArrastada

                Else

  ` Se não, utilize CALL PROCESS para obter o valor do campo do processo fonte

                End if

             End if

  ` O objeto fonte é um array de imagens

          :($vlTipoDados=Picture array)

  ` ¿O objeto fonte esta no mesmo processo (na mesma janela e formulario)?

             If($lProcessoOrigem=Current process)

  ` Se é assím, copiar o valor fonte

                [aTabela]aImagem:=$vpObjetoOrigem->{$vlElementoOrigem}

             Else

  ` Se não, obter o valor do processo fonte

                GET PROCESS VARIABLE($lProcessoOrigem;$vpObjetoOrigem;

                ->{$vlElementoOrigen};$vgImagemArrastada)

                [aTabela]aImagem:=$vgImagemArrastada

             End if

       End case

 End case

Observação: para mais exemplos sobre a gestão dos eventos On Drag Over y On Drop, consulte os exemplos do comando DRAG AND DROP PROPERTIES.

Este exemplo é um modelo para um método do formulário. Mostra cada um dos eventos possíveis que podem ocorrer quando um relatório usa um formulário como formulário de saída:

  ` Método de um formulário utilizado como formulário de saída de um relatório

 $vpFormTabla:=Current form table

 Case of

  ` ...

    :(Form event=On Header)

  ` Uma área de cabeçalho esta pronta para ser impressa

       Case of

          :(Before selection($vpFormTabla->))

  ` O código para a primeira ruptura de cabeçalho deve estar aqui

          :(Level=1)

  ` O código para a ruptura de cabeçalho de nível 1 deve estar aqui

          :(Level=2)

  ` O código para a ruptura de cabeçalho de nível 2 deve estar aqui

  ` ...

       End case

    :(Form event=On Printing Detail)

  ` Vai ser impresso um registro

  ` O código para cada registro deve ir aqui

    :(Form event=On Printing Break)

  ` Uma área de ruptura esta a pronta para ser impressa

       Case of

          :(Level=0)

  ` O código para a ruptura 0 deve estar aqui

          :(Level=1)

  ` O código para a ruptura 1 deve estar aqui

  ` ...

       End case

    :(Form event=On Printing Footer)

       If(End selection($vpFormTabla->))

  ` O código para o último rodapé da página vai aqui

       Else

  ` O código para o rodapé da página deve ir aqui

       End if

 End case

Este exemplo mostra o modelo de um método de formulário que administra os eventos que podem ocorrer em um formulário mostrado utilizando os comandos DISPLAY SELECTION ou MODIFY SELECTION. Por propósitos didáticos, mostra a natureza do evento na barra de título da janela do formulário.

  ` Um método de formulário

 Case of

    :(Form event=On Load)

       $vsEvento:="O formulário vai ser visualizado"

    :(Form event=On Unload)

       $vsEvento:="O formulário de saída foi fechado e vai desaparecer da tela"

    :(Form event=On Display Detail)

       $vsEvento:="Mostrando o registro #"+String(Selected record number([LaTabla]))

    :(Form event=On Menu Selected)

       $vsEvento:="Um comando do menú foi seleccionado"

    :(Form event=On Header")

       $vsEvento:="A área de cabeçalho esta pronta para ser desenhada"

    :(Form event=On Clicked")

       $vsEvento:="Foi realizado um clic em um registro"

    :(Form event=On Double Clicked")

       $vsEvento:="Foi realizado um doble clic em um registro"

    :(Form event=On Open Detail)

       $vsEvento:="Foi realizado um doble clic no registro #"+String(Selected record number([ATabela]))

    :(Form event=On Close Detail)

       $vsEvento:="Retorno ao formulário de saída"

    :(Form event=On Activate)

       $vsEvento:="A janela de formulário passa ao primero plano"

    :(Form event=On Deactivate)

       $vsEvento:="A janela do formulário não é mais a janela do primero plano"

    :(Form event=On Menu Selected)

       $vsEvento:="Foi selecionado um elemento do menú"

    :(Form event=On Outside Call)

       $vsEvento:="Foi recebido uma chamada do exterior"

    Else

       $vsEvento:="¿O que acontece? O evento #"+String(Form event)

 End case

 SET WINDOW TITLE($vsEvento)

Para os exemplos sobre gestão dos eventos On Before Keystroke e On After Keystroke, ver os exemplos dos comandos Get edited text, Keystroke y FILTER KEYSTROKE.

Este exemplo mostra como tratar da mesma forma os clics e doble clic em uma área de deslocamento:

  ` Método de objeto para a área de deslocamento asOpçoes

 Case of

    :(Form event=On Load)

       ARRAY STRING(...;asOpçoes;...)

  ` ...

       asOpçoes:=0

    :((Form event=On Clicked)|(Form event=On Double Clicked))

       If(asOpçoes#0)

  ` Foi feito clic em um elemento, fazer algo aqui

  ` ...

       End if

  ` ...

 End case

Este exemplo mostra como tratar os clics e doble clics utilizando uma resposta diferente. Note o uso do elemento zero para conservar o valor do elemento selecionado:

  ` Método de objeto para a área de deslocamento asOpçoes

 Case of

    :(Form event=On Load)

       ARRAY STRING(...;asOpçoes;...)

  ` ...

       asOpçoes:=0

       asOpçoes{0}:="0"

    :(Form event=On Clicked)

       If(asOpçoes#0)

          If(asOpçoes#Num(asOpçoes))

  ` Foi realizado clic em um novo elemento, fazer algo aqui

  ` ...

  ` Guardar o novo elemento selecionado para a próxima vez

             asOpçoes{0}:=String(asOpçoes)

          End if

       Else

          asOpçoes:=Num(asOpçoes{0})

       End if

    :(Form event=On Double Clicked)

       If(asOpçoes#0)

  ` Foi realizado doble clic sobre um elemento, fazer algo diferente aqui

       End if

  ` ...

 End case

Este exemplo mostra como manter uma área de texto a partir de um método desde um método de formulário, utilizando os eventos On Getting Focus y On losing Focus:

  `Método de formulário [Contatos];"Entrada"

 Case of

    :(Form event=On Load)

       C_TEXT(vtAreaEstado)

       vtAreaEstado:=""

    :(Form event=On Getting Focus)

       RESOLVE POINTER(Focus object;$vsNomeVar;$vlNumTabela;$vlNumCampo)

       If(($vlNumTabela#0) & ($vlNumCampo#0))

          Case of

             :($vlNumCampo=1) ` Campo nome

                vtAreaEstado:="Introduza o nome do contato; será passado automaticamente a maiúsculas"

  ` ...

             :($vlNumCampo=10) ` Campo código postal

                vtAreaEstado:="Introduza um código postal; será verificado e validado automaticamente"

  ` ...

          End case

       End if

    :(Form event=On Losing Focus)

       vtAreaEstado:=""

  ` ...

 End case

Este exemplo mostra como responder ao evento de fechamento de uma janela com um formulário utilizado para a entrada de dados:

  ` Método para um formulário de entrada

 $vpFormTabela:=Current form table

 Case of

  ` ...

    :(Form event=On Close Box)

       If(Modified record($vpFormTabela->))

          CONFIRM("Este registro foi modificado. Desejas guardar as mudanças?")

          If(OK=1)

             ACCEPT

          Else

             CANCEL

          End if

       Else

          CANCEL

       End if

  ` ...

 End case

Este exemplo mostra como passar a maiúsculas um campo de tipo texto ou alfanumérico cada vez que o valor seja modificado:

  `Método de objeto para [Contatos]Nome

 Case of

  ` ...

    :(Form event=On Data Change)

       [Contatos]Nome:=Uppercase(Substring([Contatos]Nome;1;1))+

       Lowercase(Substring([Contatos]Nome;2))

  ` ...

 End case

Este exemplo mostra como passar a maiúsculas um campo de tipo texto ou alfanumérico cada vez que o valor seja modificado:

  `Método de objeto para [Contatos]Nome

 Case of

  ` ...

    :(Form event=On Data Change)

       [Contatos]Nome:=Uppercase(Substring([Contatos]Nome;1;1))+

       Lowercase(Substring([Contatos]Nome;2))

  ` ...

 End case

O exemplo abaixo ilustra como manejar uma ação de eliminação nuna lista hierárquica:

 ... //método da lista hierárquica

:($Event=On Delete Action)

 ARRAY LONGINT($itemsArray;0)

 $Ref:=Selected list items(<>HL;$itemsArray;*)

 $n:=Size of array($itemsArray)

 

 Case of

    :($n=0)

       ALERT("Nenhum elemento selecionado")

       OK:=0

    :($n=1)

       CONFIRM("Quer eliminar este elemento?")

    :($n>1)

       CONFIRM("Quier eliminar estos elementos?")

 End case

 

 If(OK=1)

    For($i;1;$n)

       DELETE FROM LIST(<>HL;$itemsArray{$i};*)

    End for

 End if

Neste exemplo, o evento formulário On Scroll permite sincronizar a visualização de duas imagens em um formulário. O seguinte código se agrega no método do objeto "satélite" (campo imagen ou variável imagem):

 Case of

    :(Form event=On Picture Scroll)

  // tomamos a posição da imagem da esquerda

       OBJECT GET SCROLL POSITION(*;"satellite";vPos;hPos)

  // e a aplicamos a imagem da direita

       OBJECT SET SCROLL POSITION(*;"plan";vPos;hPos;*)

 End case

Resultado:

Se você deseja desenhar um retängulo vermelho ao redor de uma célula selecionada de um list box e deseja que o retângulo se mova junto com a list box se for movimentada verticalmente pelo usuário. No método objeto do list box, pode escrever:

 Case of

       <p>:(Form event=On Clicked)

       LISTBOX GET CELL POSITION(*;"LB1";$col;$raw)

       LISTBOX GET CELL COORDINATES(*;"LB1";$col;$raw;$x1;$y1;$x2;$y2)

       OBJECT SET VISIBLE(*;"RedRect";True)&NBSP; //inicializa um retângulo vermelho

       OBJECT SET COORDINATES(*;"RedRect";$x1;$y1;$x2;$y2)

 

    :(Form event=On Scroll)

       LISTBOX GET CELL POSITION(*;"LB1";$col;$raw)

       LISTBOX GET CELL COORDINATES(*;"LB1";$col;$raw;$x1;$y1;$x2;$y2)

       OBJECT GET COORDINATES(*;"LB1";$xlb1;$ylb1;$xlb2;$ylb2)

       $toAdd:=LISTBOX Get headers height(*;"LB1") //preste atençãp na altura do cabeçalho para que não o ultrapasse

       f($ylb1+$toAdd<$y1) & ($ylb2>$y2) //se estamos dentro da list box

  //para simplificar, só manejamos cabeçalhos

  //mas devemos manejar clipping horizontal

  //assim como as barras de deslocamento

       OBJECT SET VISIBLE(*;"RedRect";True)

       OBJECT SET COORDINATES(*;"RedRect";$x1;$y1;$x2;$y2)

    Else

       OBJECT SET VISIBLE(*;"RedRect";False)

    End if

 

End case

Como resultado, o retângulo vermelho segue o deslocamento da list box:

4D v16.3

Form event

Form event

Descrição

Eventos e Métodos

Eventos, Objetos e Propriedades

Objetos clicáveis

Objetos editáveis por teclado

Objetos Modificáveis

Objetos Tabuláveis

Botões 3D

List box

Listas Hierárquicas

Variáveis e campos imagem

Subformulários

Áreas Web

Exemplo 1

Exemplo 2

Exemplo 3

Exemplo 4

Exemplo 5

Exemplo 6

Exemplo 7

Exemplo 8

Exemplo 9

Exemplo 10

Exemplo 11

Exemplo 12

Exemplo 13

Exemplo 14

Exemplo 15