In gefiltertem Edit auch STRG-C/V zulassen

[Sharky]

Hai Opa,

dafür kannst Du das .OnKeyDown Ereigniss benutzten. Dieses wird vom OnKeyPress aufgerufen.

Delphi-Quellcode:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in [#8,#35,#48 .. #57,#65 .. #70, #97 .. #102]) then
  begin
    Key := #0;
  end;
end;

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Shift = [ssCtrl] then
  begin
     Case Key of
       Ord ('C') : Edit1.CopyToClipboard;
       Ord ('V') : Edit1.PasteFromClipboard;
       Ord ('X') : Edit1.CutToClipboard;
     end;
  end;
end;

Der Code hat aber einen "Nachteil". Es wird nicht geprüft was in der Zwichenablage für ein Text ist. Es wärden also auch "nicht Hex" Eingaben in das Edit kopiert werden.