TMS - правильно удалить элемент dbPlanner1

Question

Я старался:

procedure TForm4.Delete1Click(Sender: TObject);
    begin
dbPlanner1.FreeItem(dbPlanner1.Items.Selected);
end;

Но я получаю курсор ожидания sql. Он удаляет элемент, но мне нужно щелкнуть в другом месте, чтобы избавиться от него. Нажатие DEL на клавиатуре удаляет без этого курсора. Что мне не хватает?

Answer 1

Если вы делаете это с помощью всплывающего меню, закройте меню:

procedure TForm4.Delete1Click(Sender: TObject);
    begin
dbPlanner1.FreeItem(dbPlanner1.Items.Selected);
ItemPopup.CloseMenu;
end;