TMS - 正确删除 dbPlanner1 项

Question

我试过了：

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

但我最终得到 sql 等待 cursor.It 删除了该项目，但我需要单击其他地方才能删除它。按键盘上的 DEL 删除没有该光标。我错过了什么？

Answer 1

如果您使用弹出菜单菜单项执行此操作，请关闭菜单：

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