TComboBox - ReadOnly - "CopyToClipboard"

[himitsu]

dann reagiert die doch auf keine Tastatureingaben mehr(?).

und wie sieht es aus, wenn du auch noch auf das Loslassen der Tasten reagierst?

Delphi-Quellcode:

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];
    Key := 0;
  end;
end;

procedure TForm1.ComboBox1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if (Key = Ord('C')) and (Shift = [ssCtrl]) then
    Key := 0;
end;