TComboBox - ReadOnly - "CopyToClipboard"

[Tyrael Y.]

Tjo hätte ich auch gedacht himitsu, war der 1.Versuch von mir, leider hilft es nicht

So sah es bei mir aus.

Delphi-Quellcode:

procedure TMainForm.DoOnComboBoxKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if Sender is TComboBox then
  begin
    if (Shift = [ssCtrl]) and (Key = Ord('C')) then
    begin
      ClipBoard.AsText := TComboBox(Sender).Items[TComboBox(Sender).ItemIndex];
      Key := 0;
    end;
  end;
end;

...leider reagiert es dann immer noch auf das C