Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.157 Beiträge
 
Delphi 12 Athens
 
#5

Re: TComboBox - ReadOnly - "CopyToClipboard"

  Alt 11. Dez 2007, 11:30
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;
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat