Делфи. Перемещение по базе данных

[RikkiTan]

Доброго времени суток. Есть Dbgrid, есть кнопка.
Код кнопки:

Datamodul.ANomerTable.Prior;

Возник вопрос, как сделать так, чтобы при нажатии и не отпускании кнопки мыши происходило постоянное перемещение, как у dbnavigator. Имею ввиду, чтобы не нажимать постоянно и переходить только на одну запись.Помогите, пожалуйста.

[Stilet]

Если у кнопки есть событие OnMouseDown - опиши в нем этот переход.
Если нет... Ну попробуй возьми другой компонент, похожий на кнопку, но с таким событием.

[RikkiTan]

У кнопки есть такое событие. Пробовал писать туда, все равно переходит только на одну запись. Думаю, завтра попробовать сделать с таймером. Спасибо за помощь

[Stilet]

Таймер не поможет. ИМХО.

[Аватар]

По OnMouseDown запускать поток, в котором в цикле с заданной задержкой перемещать указатель записи. По По OnMouseUp завершать работу потока.

Еще где-то видел кнопки, которые сами подобное реализуют. Если не ошибаюсь в RX, гляну на работе, если там, то отпишусь

[Stilet]

По OnMouseDown запускать поток

ИМХО, из пушки по воробьям.

[Аватар]

Таймер не поможет ...
из пушки по воробьям

А какие еще идеи без привлечения сторонних компонентов

[Stilet]

Идеи? Ну примерно так:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, DB, DBTables, Grids, DBGrids;

type

  TForm1 = class(TForm)
    Button1: TButton;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Table1: TTable;
    procedure Button1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Button1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  tag:=1;
  while (tag=1)and(Table1.RecNo>1) do begin
   Table1.Prior;
   Sleep(100);
   Application.ProcessMessages;
  end;
end;



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

end.

Хотя я уверен что на самом деле автору это не нужно, и врядли это будет удобно.
Ведь есть кнопки скролла у Грида - чем не перемещение?

[Аватар]

Да, элегантно. Плюсануть жаль не могу

[Stilet]

Да, элегантно

Но идея твоя была