TMS - 제대로 해봤 dbPlanner1 항목

Question

을 삭제 :

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

그러나 나는 SQL 대기 cursor.It으로 끝낼는 항목을 삭제하지만 난 그것을 제거하기 위해 다른 곳을 클릭해야합니다. 키보드에서 DEL을 누르면 해당 커서가 삭제됩니다. 내가 뭘 놓치고 있니?

Answer 1

당신이 받아들이는 PopupMenu로이 일을하는 경우 메뉴 항목은 다음 메뉴 닫습니다

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