FMX.ListView.TListViewBase.OnDeletingItem
Delphi
property OnDeletingItem: TDeletingItemEvent read FOnDeletingItem write FOnDeletingItem;
C++
__property TDeletingItemEvent OnDeletingItem = {read=FOnDeletingItem, write=FOnDeletingItem};
プロパティ
種類 | 可視性 | ソース | ユニット | 親 |
---|---|---|---|---|
event | public | FMX.ListView.pas FMX.ListView.hpp |
FMX.ListView | TListViewBase |
説明
ユーザーがリスト ビュー項目の削除を要求した際に、その削除が実施された前に発生します。このイベントに対してイベント ハンドラを定義すると、自分の条件に従い、削除の実施を抑制することができます。
このイベントのイベント ハンドラには、次のパラメータがなければなりません:
削除が実施されないようにするには、イベント ハンドラ内で、ACanDelete
を False
に設定します。
次のコード スニペットでは、項目を削除する前に、確認のためのダイアログ ボックスを表示します。[キャンセル]をクリックすると、ACanDelete
は False
に設定され、リスト ビュー項目の削除はキャンセルされます。
Delphi:
procedure TMainForm.ListViewDeletingItem(Sender: TObject; AIndex: Integer; var ACanDelete: Boolean);
var
Input: Integer;
begin
Input := MessageDlg('Are you sure that you want to remove "' + (Sender as TListView).Items[AIndex].Text + '" from the list?',
TMsgDlgType.mtConfirmation, [TMsgDlgBtn.mbOK, TMsgDlgBtn.mbCancel], 0);
if Input = 2 then // Cancel
ACanDelete := False;
end;
C++:
void __fastcall TMainForm::ListViewDeletingItem(TObject *Sender, int AIndex, bool &ACanDelete)
{
TListView* list = reinterpret_cast<TListView*>(Sender);
int input = MessageDlg("Are you sure that you want to remove \"" + list->Items->Item[AIndex]->Text + "\" from the list?");
if (input == 2) { // Cancel
ACanDelete = false;
}
}