Hi,

wie kann ich verhindern, dass beim Drücken der Taste "Entf" (Delete) der ausgewählte Node sofort gelöscht wird, und statt dessen ein Dialogfeld erscheint?
Ich habe in dem OnKeyAction- und im OnKeyDown-Event jeweils den Code stehen, jedoch erfolglos.
Beim drücken der Backspace-Taste wird der Dialog angezeigt; ich vermute mal, dass die Entf-Taste von Windows anders gehandhabt wird.

zusammenfalten · markieren

Delphi-Quellcode:

OnKeyAction:
if ((Shift = []) and (CharCode = VK_DELETE)) then
    if MessageDlg('wirklich löschen?', mtConfirmation,[mbYes, mbNo, mbCancel],0) = mrYes then
        Sender.DeleteNode (Sender.FocusedNode);


OnKeyDown:
if (Key = VK_DELETE) or (Key = VK_BACK) then begin
    if MessageDlg('wirklich löschen?', mtConfirmation,[mbYes, mbNo, mbCancel],0) = mrYes then begin
        Key := VK_DELETE;
        VST.EditNode(VST.FocusedNode, VST.FocusedColumn);
        SendKeys('{DELETE}', True);
        VST.SetFocus;
        VST.Selected[Node] := True;
        VST.FocusedNode := Node;
    end;
end;

Danke und Gruß

Hast du eventuell eine Option beim VirtualStringTree aktiviert, die bewirkt, dass die Komponente eigenständig auf ENTF reagiert und dann die selektierten Nodes entfernt? Bei mir funktioniert folgender Testcode nämlich wunderbar:

markieren

Delphi-Quellcode:

procedure TForm2.VirtualStringTree1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key = VK_DELETE) then
    if MessageDlg('wirklich löschen?', mtConfirmation,[mbYes, mbNo, mbCancel],0) = mrYes then
        VirtualStringTree1.DeleteNode (VirtualStringTree1.FocusedNode);
end;

Hmm, ich wüsste nicht, welche Option dieses Verhalten bewirken könnte...

Zitat von ernschd:

Hmm, ich wüsste nicht, welche Option dieses Verhalten bewirken könnte...

Entferne notfalls die Komponente vom Formular, füge sie dann erneut hinzu und stell dann nur die Optionen, die du benötigst wieder ein.