TMS - 正确删除dbPlanner1项

Question

我试过了：

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

但我最终得到了一个sql等待光标。它删除了该项目，但我需要点击其他地方来摆脱它。在键盘上按DEL键删除没有该光标。我错过了什么？

Answer 1

如果您使用popupmenu menuitem执行此操作，请关闭菜单：

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