Evento de un boton

[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