- 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??