Abfrage Einschränken.

[Sharky]

Versuche es mal so:

Delphi-Quellcode:

procedure TForm1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
var
  BtnName: string;
begin
  case Button of
  SET
    nbFirst  : BtnName := 'First';
    nbPrior  : BtnName := 'Prior';
    nbNext   : BtnName := 'Next';
    nbLast   : BtnName := 'Last';
    nbInsert : BtnName := 'Einfügen in die Tabelle';
    nbDelete : BtnName := 'Löschen in der Tabelle';
    nbEdit   : BtnName := 'Edit in der Tabelle';
    nbPost   : BtnName := 'Senden an die Tabelle';
    nbCancel : BtnName := 'Abbrechen';
    nbRefresh: BtnName := 'Rückgänig'; 
  end;
  if Not (Button IN [nbFirst,nbPrior,nbNext,nbLast) then
  begin
    MessageDlg(BtnName + ' ?', mtInformation, [mbOK], 0);
  end;
end;