DELPHI AREA Forum

I am trying to confirm deletion of selected nodes and I don't think I'm doing it correctly:

Code: Select all

procedure TMainForm.SimpleGraphKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key = VK_DELETE then
  begin
    if (MessageDlg('Are you sure you want to delete the selected object(s)?', mtConfirmation, [mbYes, mbNo], 0) <> mrYes) then
      Key := 0;
  end;
end;


But the node is deleted before the MessageDlg even appears.
Any ideas??

The OnCanRemoveObject event is introduced for this purpose.