Evento de un boton

[juanpe]

Hola gente, ¿existe algun boton que tenga un evento que se produzca mientras no sueltes el boton?, es decir se produzca el evento mientras esta hundido el boton.

Gracias por vuestra ayuda .

[jhonny]

El TSpeedBoton, Revisa su propiedad Down y recuerda que la propiedad GroupIndex debe estar en 1 para que produzca tal efecto, el resto lo puedes usar por ejemplo asi...

Código Delphi [-]
 
If SpeedBoton1.Down then
//...

O para lo que necesites, Claro esta si es que eso era lo que necesitabas

[juanpe]

Gracias Jhony, pero sigue siendo incompleto.
Yo creo que me entendereis mejor ahora.

Lo que quiero es crear un codigo que haga lo mismo que los botones que tenemos para el desplazamiento horizontal y vertical, como por ejemplo en los memos. Que cuando superas el nº de lineas visibles del componente se activan y pulsando desplazamos el texto hacia arriba o abajo.

Gracias por vuestro tiempo.

[jhonny]

Lo unico que se me ocurre por el momento y que acabo de probar es lo siguiente:

- Que declares una variable que pueda ser alcanzada por los procedimientos de tu unidad (Yo le llamare Bandera y la colocare en Privates).

- En el evento OnMouseDown del boton pones lo siguiente:

Código Delphi [-]
  Bandera := True;
  while (ssLeft in Shift) and (Bandera)do
  begin
      //Aca lo que tengas que hacer...
  end;

- En el Evento OnMouseUp Lo siguiente:

Código Delphi [-]
Bandera := False;

Espero te sirva para algo.

[[Lepe]]

Una vez necesité ese comportamiento, el único control que puede hacerlo es un SpinButton..... ya, son dos botones en lugar de uno, pero lo usé y no le dí más importancia, igual mirando su código fuente, podrías hacer el botón que buscas.

Saludos