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;