Botones DBNavigator

[roman]

Vamos por partes.

Un botón en un DBNavigator no es otra cosa que un SpeedButton con un Timer integrado. El Timer lo usa para llamar repetidamente al método Click del botón.

Si quisieras simular esto con tu propio SpeedButton bastaría entonces colocar un Timer y asignar los eventos:

Código Delphi [-]
procedure SpeedButtonMouseDown(...);
begin
  Timer.Enabled := true;
end;

procedure SpeedButtonMouseUp(...);
begin
  Timer.Enabled := false;
end;

procedure TimerTimer(...);
begin
  DataSet.Next;
end;

Pero como dices, la cosa se complica cuando usas un ActionToolbar ya que me parece que no hay una forma directa de asignar los eventos OnMouseDown y OnMouseUp a cada botón.

Lo que puedes hacer es definir tú mismo estos eventos:

Código Delphi [-]
type
  TForm1 = class(TForm)
  private
    procedure ButtonNextMouseDown(...);
    procedure ButtonNextMouseUp(...);
  end;

con los mismos parámetros que los correspondientes eventos y con la implementación como en el SpeedButton.

Para asignar estos eventos lo puedes hacer en el evento OnCreate del formulario:

Código Delphi [-]
ActionToolbar.Controls[i].OnMouseDown := NextButtonMouseDown;
ActionToolbar.Controls[i].OnMouseUp := NextButtonMouseUp;

donde I es el índice que corresponda al botón que uses.

¡Ah! Pero hay un pequeño problema. Cada control es de tipo TCustomActionControl y esta clase no publica estos eventos. De manera que tienes que recurrir al truco de heredar una clase 'de palo' de esta clase

Código Delphi [-]
type
  THackControl = class(TCustomActionControl);

y hacer el moldeo de tipos:

Código Delphi [-]
THackControl(ActionToolbar.Controls[i]).OnMouseDown := NextButtonMouseDown;
THackControl(ActionToolbar.Controls[i]).OnMouseUp := NextButtonMouseUp;

// Saludos