Evento de un boton

[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