怎样判断DBNavigator中按了哪个键？
譬如怎么知道是按了DELETE键还是FIRST RECORD键？

用 BeforeAction Event 的 Button 參數可判斷.
===================引 用 sl@cableplus.com.cn 文 章===================
怎样判断DBNavigator中按了哪个键？
譬如怎么知道是按了DELETE键还是FIRST RECORD键？

请问有代码可供参考吗？

我是利用 ｏｎｃｌｉｃｋ比較直接, 參考看看

[code delphi]
procedure TForm_Machine.mNavigator1Click(Sender: TObject;
Button: TNavigateBtn);
var BtnName : string ;
tempfield: string;
tempvar: real;
nowREC: TBookMarkStr;
begin
case Button of
nbFirst : BtnName := 'nbFirst';
nbPrior : BtnName := 'nbPrior';
nbNext : BtnName := 'nbNext';
nbLast : BtnName := 'nbLast';
nbInsert : BtnName := 'nbInsert';
nbDelete : BtnName := 'nbDelete';
nbEdit : BtnName := 'nbEdit';
nbPost : BtnName := 'nbPost';
nbCancel : BtnName := 'nbCancel';
nbRefresh: BtnName := 'nbRefresh';
end;
if BtnName='nbPost' then begin
Table_Volt.Edit;
Table_Volt.Post;
Application.MessageBox('已完成寫入','系統訊息',MB_Ok);
end
else if BtnName='nbInsert' then begin
Table_VoltMACHINETYPE.Value:= Table_MachineMACHINETYPE.Value;
Table_VoltISVOLT.Value:='MATHVOLT';
end
else if BtnName='nbRefresh' then begin
tempfield:= Table_VoltAIMODE.Value;
tempvar := Table_VoltDATAHIGH.Value;
if ID_YES=Application.MessageBox(pChar('是否確定更新 ' tempfield ' 的乘值資料?'),
'更新',
MB_ICONINFORMATION MB_YESNO) then begin
nowREC:= Table_Volt.Bookmark;
while (Table_VoltAIMODE.Value=tempfield) and (not Table_Volt.Eof) do begin
Table_Volt.Edit;
Table_VoltDATAHIGH.Value:= tempvar;
Table_Volt.Post;
Table_Volt.Next;
end;
Table_Volt.Bookmark:= nowREC;
setLength(nowREC,0);
Application.MessageBox('已完成更新','系統訊息',MB_Ok);
end;
end;
end;

[/code]

編輯記錄