Hallo,
vielleicht hast du mehr Erfolg mit dem Ereignis
OnKeyAction:
Delphi-Quellcode:
procedure TForm1.TreeKeyAction (Sender: TBaseVirtualTree; var CharCode: Word;
var Shift: TShiftState; var DoDefault: Boolean);
begin
if ((Shift = []) and (CharCode = VK_DELETE)) then
Sender.DeleteNode (Sender.FocusedNode);
end;
Gruß Hawkeye