TVirtualStringTree und Strg+C

[David Martens]

Kann mir jemand sagen, wie ich die Standard-window-tastenkombi. für Copy abfragen kann.

Hat beides nicht funktioniert:

Delphi-Quellcode:

procedure TfraGLOB_VSTAnalyseGrid.vstAnalyseKeyAction(Sender: TBaseVirtualTree;
  var CharCode: Word; var Shift: TShiftState; var DoDefault: Boolean);
begin
  if (CharCode = 67) and (ssCtrl in Shift) then
    Clipboard.AsText := vstAnalyse.ContentToText(tstAll, AnsiChar(ListSeparator)) + #0;
end;

procedure TfraGLOB_VSTAnalyseGrid.vstAnalyseKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  if (Key = 67) and (ssCtrl in Shift) then
    Clipboard.AsText := vstAnalyse.ContentToText(tstAll, AnsiChar(ListSeparator)) + #0;
end;

einzeln geht es (Key = 67) oder (ssCtrl in Shift) aber nciht zusammen.

[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;

[semo]

Also bei mir klappt das mit dem Code

Delphi-Quellcode:

if (Key = 67) and (ssCtrl in Shift) then

wunderbar.

Sowohl im OnKeyDown als auch im OnKeyUp event.

[David Martens]

Sorry mein Fehler, ich hatte im MainMenü einen Eintrag der Strg+C schon abfängt.

Gruß David