Android: Reagieren auf DeletingItem im Listview

[amigage]

Hallo,

ich bin fast am Verzweifeln und wende mich daher wieder einmal euch.

Ich habe eine Android App mit einem TListView. Die Einträge kann man mit einem "Swipe" löschen.
Abgesehen davon, dass der "Delete" Button in der Liste hässlich aussieht (anderes Thema), bekomme ich es nicht hin, VOR dem tatsächlichen Löschen des Eintrags eine Abfrage einzublenden, um das Löschen zur Not abzubrechen.

Delphi-Quellcode:

procedure TMainDlg.LVDeletingItem(Sender: TObject; AIndex: Integer;
  var ACanDelete: Boolean);
begin
  TDialogService.PreferredMode := TDialogService.TPreferredMode.Platform;
  TDialogService.MessageDialog(txt_DeleteItem, System.UITypes.TMsgDlgType.mtConfirmation,
    [System.UITypes.TMsgDlgBtn.mbYes, System.UITypes.TMsgDlgBtn.mbNo],
    System.UITypes.TMsgDlgBtn.mbYes, 0,
    procedure(const AResult: TModalResult)
    var
      itemNo: integer;
      LI: TListViewItem;
    begin
      Case AResult of
          mrYes: begin
                   LI := MainDlg.LV.Items[AIndex];
                   itemNo := LI.Data['i'].AsInteger;
                   EntryList.Delete(itemNo);
                 end;
          mrNo:  begin
                   ACanDelete := false;
                 end;
        End;
    end);
end;

Hier kommt die Fehlermeldung: E2555 Symbol 'ACanDelete' kann nicht erfasst werden

Also habe ich versucht, es anders zu übergeben.

Delphi-Quellcode:

procedure TMainDlg.LVDeletingItem(Sender: TObject; AIndex: Integer;
  var ACanDelete: Boolean);
var
  myCanDelete : Boolean;
begin
  myCanDelete := false;
  TDialogService.PreferredMode := TDialogService.TPreferredMode.Platform;
  TDialogService.MessageDialog(txt_DeleteItem, System.UITypes.TMsgDlgType.mtConfirmation,
    [System.UITypes.TMsgDlgBtn.mbYes, System.UITypes.TMsgDlgBtn.mbNo],
    System.UITypes.TMsgDlgBtn.mbYes, 0,
    procedure(const AResult: TModalResult)
    var
      itemNo: integer;
      LI: TListViewItem;
    begin
      Case AResult of
          mrYes: begin
                   myCanDelete := true;
                   LI := MainDlg.LV.Items[AIndex];
                   itemNo := LI.Data['i'].AsInteger;
                   EntryList.Delete(itemNo);
                 end;
          mrNo:  begin
                   myCanDelete := false;
                 end;
        End;
    end);
   ACanDelete := myCanDelete;
end;

Hier ist aber das Problem, dass die Meldung zwar erscheint, aber der Eintrag schon vorher gelöscht wird.
Auch TDialogServiceSync kann unter Android nicht verwendet werden.

Habt ihr eine Idee, wie man es abfangen könnte oder hat jemand schon einen Code? Ich denke mal, das wird ja einige betreffen, die Listviews verwenden...

[Schokohase]

Wenn du da noch eingreifen willst, dann würde ich das so umsetzen:

Delphi-Quellcode:

procedure TMainDlg.LVDeletingItem(Sender: TObject; AIndex: Integer;
  var ACanDelete: Boolean);
var
  lv: TListView;
begin
  // erstmal ablehnen
  ACanDelete := false;
  lv := TListView(Sender);

  TDialogService.PreferredMode := TDialogService.TPreferredMode.Platform;
  TDialogService.MessageDialog(txt_DeleteItem, System.UITypes.TMsgDlgType.mtConfirmation,
    [System.UITypes.TMsgDlgBtn.mbYes, System.UITypes.TMsgDlgBtn.mbNo],
    System.UITypes.TMsgDlgBtn.mbYes, 0,
    procedure(const AResult: TModalResult)
    var
      li: TListViewItem;
      itemNo: integer;
    begin
      Case AResult of
          mrYes: begin
                   li := lv.Items[AINdex];
                   itemNo := li.Data['i'].AsInteger;
                   EntryList.Delete(itemNo);
                   // und dann manuell löschen
                   lv.Items.Delete(AIndex);
                 end;
        End;
    end);
end;

[amigage]

Besten Dank für den Hinweis.

Natürlich! Abfangen und selbst entfernen.
Es funktioniert, jedoch lautet Anweisung korrekterweise lv.Items.Delete(AIndex);

Jetzt muss ich es nur noch hinbekommen, dass dann der hässliche "Entfernen"-Button auch wieder verschwindet.

Die Frage bleibt dann aber trotzdem: wozu gibt es das Event OnDeletingItem, wenn man das nicht so einfach mit ACanDelete steuern kann?

[Schokohase]

Zitat von amigage:

wozu gibt es das Event OnDeletingItem, wenn man das nicht so einfach mit ACanDelete steuern kann?

Häh? Kann man doch steuern und nur weil man das kann, kann man das machen was ich dir gezeigt habe.

Du willst aber noch den Benutzer per Dialog fragen, ob er wirlich löschen will. Dialoge werden auf den mobilen Plattformen asynchron ausgeführt (darum musst du die Callback-Methode schreiben) und darum eben so.

[amigage]

Super, das funktioniert soweit. In dem Event habe ich die Abfrage implementiert und die entsprechenden auszuführenden Funktionen hinterlegt.
Jetzt soll der Eintrag auch auf eine andere Art und Weise gelöscht werden (per Longtap wird ein Menü eingeblendet).
ich möchte es mir einfach machen und auf diese Funktionen gleich wieder zugreifen, ohne sie neu zu hinterlegen.

Also dachte ich mir, ich rufe das Event auf: myListViewDeletingItem(myListView, myListView.ItemIndex, false);

Der Compiler meldet aber "E2033 Die Typen der tatsächlichen und formalen Var-Parameter müssen übereinstimmen".
Die stimmen doch meiner Erachtens überein, oder übersehe ich da etwas?

procedure TmyForm.myListViewDeletingItem(Sender: TObject; AIndex: Integer;var ACanDelete: Boolean);

ich stehe gerade auf dem Schlauch und würde mich über eine Hilfe freuen. Danke!

[KodeZwerg]

Das Boolean braucht ein Empfänger. Also myListViewDeletingItem(myListView, myListView.ItemIndex, EinBooleanDummy); .
*ungewiss* vielleicht kann man den Kompiler überreden es zu akzeptieren wenn man das Ergebnis nicht benötigt
:myListViewDeletingItem(myListView, myListView.ItemIndex, Boolean(False)); .

edit
Vielleicht willst Du das Boolean als Input verwenden dann schreibe es so
:procedure TmyForm.myListViewDeletingItem(Sender: TObject; AIndex: Integer; const ACanDelete: Boolean = False); .

Ps: Auf diese Weise bräuchtest Du gar kein Boolean angeben solange es eh auf False stehen soll.
Beispiel: myListViewDeletingItem(myListView, myListView.ItemIndex);

[amigage]

Ich danke Dir für Deine erneute Hilfe

myListViewDeletingItem(myListView, myListView.ItemIndex, EinBooleanDummy) funktioniert.

Das Boolean(False) funktioniert nicht und die Struktur der procedure ist vorgegeben.

[KodeZwerg]

Es freut mich das es nun funktioniert, Hauptsache Du hast auch Verstanden wieso es so lauten muss.