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;