請教前輩有關Data Controls->DBNavigator問題! 為什麼當我用滑鼠按著 DBNavigator的上,下頁按鈕不放時,可連續切換一下筆資料. 但是為什麼我新增兩個按鈕,一個是Query1.prior; 一個是Query1.next; 然後滑鼠按住按鈕時,只能切換下一筆,沒辦法連續... 這樣很痛苦ㄝ.每要看下一筆就要點一下...點點點.... 是不是我忘了哪一個步驟嗎?

為什麼當我用滑鼠按著 DBNavigator的上,下頁按鈕不放時,可連續切換一下筆資料. 那是因為DBNavigator用TNavButton,內含一個Timer, MouseDown後啟動Timer,每0.1秒檢查一次若仍在down狀態就去呼叫click. 可以如下模擬: 在Form上放一個TTimer, Interval設為100

 
type TTmpButton=class(TButton);//這行是為了使用Button 之protect method
procedure TForm2.Timer1Timer(Sender: TObject);  //Timer1之onTimer
begin
  if TTmpButton(Button1).MouseCapture then  begin //check mouse是否在button1上
    try
      Button1.Click;  //呼叫click
    except
      Timer1.Enabled := False;  //若有任何錯誤, disable Timer
      raise;
    end;
  end;
end;    procedure TForm2.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Timer1.Enabled  := True;  //mousedown時啟動Timer
end;    procedure TForm2.Button1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Timer1.Enabled  := False;  //Mouseup時關掉Timer
end;    procedure TForm2.Button1Click(Sender: TObject);
begin
  Memo1.lines.add('click');  // only test
end;