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.