Abfrage Einschränken.

[thomasvonmuenster1]

Er soll mir ab Insert erst die Message bringen.
if (Button = nbInsert or nbDelete or nbEdit....)
Message open ???

Delphi-Quellcode:

procedure TForm1.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
var
  BtnName: string;
begin
  case Button of
    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;
   MessageDlg(BtnName + ' ?', mtInformation, [mbOK], 0);
end;