Strg+V im TEdit abfangen

[Sharky]

Hai,

eine andere möglichkeit wäre sich ein eigenes PopUp-Menü zu basteln welches mit dem Edit verknüpft ist.
Für die Tastatureingabe kannst Du es zum Beispiel so machen:

Delphi-Quellcode:

uses
  Clipbrd;

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: word; Shift: TShiftState);
var
  MyString: string;
begin
  if Shift = [ssCtrl] then
  begin
    case Key of
      Ord('C'):
      begin
        Edit1.CopyToClipboard
      end;
      Ord('V'):
      begin
        if (ClipBoard.HasFormat(CF_TEXT)) then
        begin
          MyString := Clipboard.AsText;
          if (IsOnlyHexChar(MyString)) then // Hier wird die Prüfung gemacht
          begin
            Edit1.PasteFromClipboard;
          end;
        end;
      end;
      Ord('X'):
      begin
        Edit1.CutToClipboard
      end;
    end;
    Key := 0;
  end;
end;