Italian community of Lazarus and Free Pascal

Programmazione => LCL => Topic aperto da: Fabio - Aprile 18, 2012, 06:51:15 pm

Titolo: Annullare un eliminazione dal TDBNavigator
Inserito da: Fabio - Aprile 18, 2012, 06:51:15 pm

Appunto quello che ho trovato per annullare un eliminazione ( o qualunque altro evento ) di un TDBNavigator nel caso serva a qualcuno e per ritrovarlo facilmente nel caso lo ricercassi nuovamente:

Codice: [Seleziona]

procedure TMyForm.MyNavigatorBeforeAction(Sender: TObject;
  Button: TDBNavButtonType);
begin
  if Button=nbDelete then
  begin
    {...controlli...}
    if [condizione in base ai controlli] then
    begin
      MessageDlg('Error','Eliminazione annuata.', mtError, [mbOK], 0);
      SysUtils.Abort;
    end;
  end;
end;

Titolo: Re:Annullare un eliminazione dal TDBNavigator
Inserito da: xinyiman - Aprile 19, 2012, 08:04:52 am

Grazie :)