Ein Problem weniger.
Aber er macht immer noch erst die Aktion in der Tabelle bevor er mich fragt.
Jetzt brauche ich die Case nicht mehr oder?
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;
if Not (Button IN [nbFirst,nbPrior,nbNext,nbLast]) then
begin
if MessageDlg('Änderungen der Tabelle ?', mtWarning, [mbYes,mbNo,mbAbort], 0) = mrNO then
begin
IBTable1.DisableControls;
end;