In gefiltertem Edit auch STRG-C/V zulassen

[Opa Knack]

Hallo,

ich habe ein etwas dusseliges Problem:

Mit dem folgenden Code stelle ich sicher, dass in einem Editfeld nur hexadezimale Angaben gemacht werden können:

Delphi-Quellcode:

if not (Key in [#8,#35,#48 .. #57,#65 .. #70, #97 .. #102]) then Key := #0;

(das Ganze dann in Verbindung mit KeyPress)

Nun soll aber auch STRG-C und STRG-V funktionieren, was aber nicht gelingt, da diese Tastenkombinationen ja durch obigen Code geblockt werden.

Wie kann ich das doch noch hinkriegen?

Danke
Opa

[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.