Ejecutar código mientras pulso un botón

[BECERRA]

Hola colegas. Me sabría decir alguien como puedo ejecutar el codigo que tengo dentro de una botón mientras lo mantengo pulsado.

P.ej. Hago un Query.next en el onclick y me desplazo por los registros del query mientras esté pulsado.

Saludos.

[delphi.com.ar]

Te recomiendo investigar el código del TSpinEdit.

Saludos!

[marcoszorrilla]

Mira este ejemplo, necesitas un Timer y aquí tienes el código:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Adoquery1.Next;
end;

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Timer1.Enabled:=True;
end;

procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
Timer1.Enabled:=False;
end;

Un Saludo.

[roman]

Otra opción:

Declaras una variable MouseUp de tipo booleano en tu formulario y escribes eventos OnMouseDown y OnMouseUp del botón como sigue:

procedure TForm1.Button1MouseDown(...);
begin
  MouseUp := false;
  repeat
    Query.Next;
    Application.ProcessMessage;
  until MouseUp;
end;

procedure TForm1.Button1MouseUp(...);
begin
  MouseUp := true;
end;

// Saludos

[roman]

Bien visto me gusta más la opción de marcoszorrilla porque así puedes controlar la velocidad de avance. Con mí opción la velocidad es inútilmente demasiado rápida .

// Saludos

[BECERRA]

Ok.