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:

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

Hai Opa,

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

zusammenfalten · markieren

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.