請問各位。 DBNavigator本身就是包含許多控制的物件。 是否當使用者按第一筆或最一筆，如繼續按 上一筆或下一筆是否會自動顯示警示訊息， 如果它沒有提供時，我該在什麼處理中， 作控制訊息呢。 麻煩大家，謝謝。

引言: 請問各位。 DBNavigator本身就是包含許多控制的物件。 是否當使用者按第一筆或最一筆，如繼續按 上一筆或下一筆是否會自動顯示警示訊息， 如果它沒有提供時，我該在什麼處理中， 作控制訊息呢。 麻煩大家，謝謝。

其實它已是很完整的資料感知元件, 當移到首/末筆時, 對應的末筆、上一筆)/首筆、下一筆按鍵會變成不可選, 你無須做任何變更, 除非你還想加文字提示, 但我想那是不必要的了

謝謝您。 是。它是非常完整功能。 但是，因為需求上的需求。 當按到首筆或尾筆時， 希望有一些訊息。 謝謝

可以在DATASOURCE中的ONDATACHANGE EVENT中寫上 IF ADOQUERY1.EOF THEN SHOWMESSAGE('未筆') ELSE IF ADOQUERY1.BOF THEN SHOWMESSAGE('第一筆');

謝謝大家。 Hi huangeider 不好意思，您所提供方式可能會存在一個問題， 當執行表單時就會出現〔首筆〕的訊息。 是否應該指定當執行那支表單的那個DataSocure時才在顯示訊息的動作。 也或者應該當按選DBNavigator時才作控制。 謝謝

你好 同意你的說法,所以應該可以加在onClick的事件當中判斷!! Pillar Wang

------
Pillar Wang

private { Private declarations } PROCEDURE STATE(DataSet: TDataSet); public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} PROCEDURE TFORM1.STATE(DataSet: TDataSet); BEGIN IF ADOQUERY1.Bof THEN SHOWMESSAGE('FIRST') ELSE IF ADOQUERY1.Eof THEN SHOWMESSAGE('LAST'); END; procedure TForm1.FormCreate(Sender: TObject); begin ADOQUERY1.AfterScroll:=STATE; end; 發表人 - huangeider 於 2005/08/08 17:31:52

插花： t0288542你好： 直接在DBNavigator1的onClick事件下就行： 

 
procedure TForm1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
begin
 if adoTable1.Eof then
   showmessage('last');
 if adoTable1.Bof then
   showmessage('first');
end

============================ 为什么经过多年以后，得失的过程如此冷漠 ============================

上面的方法中STATE程序中前面還要加一些條件如 IF ADOQUERY1.STATE=DSINSERT THEN EXIT 若有要考慮的因素也要自行加入