TVirtualStringTree und Strg+C

[chaosben]

Bei mir funktioniert es so:

Delphi-Quellcode:

procedure TForm7.VirtualStringTree1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key = Ord('C')) and (ssCtrl in Shift) then
    Caption := Format('%P', [VirtualStringTree1.GetFirstSelected]);
end;