DeveloperExpress ExpressQuantumGrid Suit

[Union]

Du erstellst einen Event OnButtonClick:

Delphi-Quellcode:

procedure TForm1.cxDBNavigator1ButtonsButtonClick(Sender: TObject;
  AButtonIndex: Integer; var ADone: Boolean);
begin
   case AButtonindex of
   NBDI_EDIT, NBDI_INSERT : ADone := MessageDlg('Bearbeiten', mtConfirmation, [mbYes, mbNo], 0) <> mrYes;
   end;
end;