TComboBox - ReadOnly - "CopyToClipboard"

[himitsu]

vermutlich reagiert die ComboBox nicht auf Strg und wertet nur das C ... spring also zu "C".

wenn du in OnKeyDown und Co. den Wert nicht zurücksetzt, dann verarbeitet die VCL die Eingabe ebenfalls nochmal.

Code:

procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key = Ord('C')) and (Shift = [ssCtrl]) then
  begin
    ClipBoard.AsText := ComboBox1.Items[ComboBox1.ItemIndex];
    [color=red][b]Key := 0;[/b][/color]
  end;
end;