[Resolvido]Pressionar o botão por 3 segundos ... dispara um evento

Boa noite,

O meu problema é o seguinte, quero criar um botão que ao ser continuamento pressionado durante 3 ou mais segundos realiza um evento. O mesmo vai ser utilizado em ecrãs táteis.

Alguem sabe como fazer isto.

Podes tentar os eventos "Ao apertar mouse" e "Ao liberar mouse" em conjunto com o Timer. Primeiro, criarias uma variável no escopo do formulário de nome Acionar por exemplo e do tipo Boolean e outra de nome Contagem por exemplo do tipo Integer. No evento "Ao apertar mouse" define Acionar = True e no evento "Ao liberar mouse" define Acionar = False. No Timer, que define estar com intervalo de 1000 (1 segundo), algo como:

Código:

If Acionar = True Then
    Contagem = Contagem + 1
        If Contagem = 3 Then
            Dispara o evento
            Acionar = False
            Contagem = 0
        Else
        End If
Else
End If

Deve dar certo com algumas adaptações.