Aufnahme eines 'löschen' - Taste drücken

Ich kann nicht herausfinden, wie zu erfassen, die Löschen - Taste drücken.
Ich fand heraus, dass im ASCII-code-Tabelle, ist es auf 127 Stelle, aber if (Key = #127) then habe mich nirgends.

Dann überprüfte ich den Wert von VK_DELETE wurde 47. Versucht zu benutzen, aber es hat nicht funktioniert.

Den KeyPreview := true in meine form.

Ich versucht, um die ShowMessage(IntToStr(Ord(Key))) zu den Formen KeyPress-Ereignis, aber ich bekam nie die Meldung, popup, beim klicken die Löschen - Taste.

Ich behandeln müssen, die Löschen - Taste drücken, in dynamicaly erstellte Edit-Felder. Ich möchte festlegen, welcher Teil des Textes kann der Benutzer löschen in das Feld, und ich weiß, wie behandeln die text löschen mit Backspace - Taste, müssen nun herausfinden, wie es zu tun mit Löschen - Taste.

Dank

InformationsquelleAutor user1651105 | 2010-03-06

  1. 12

    Sollten Sie Griff die OnKeyDown statt der OnKeyPress Veranstaltung. Wenn Sie das tun, dann VK_DELETE sollte für Sie arbeiten. Beachten Sie, dass die parameter für OnKeyDown und OnKeyUp ist ein Word, nicht ein Char für OnKeyPress.

    InformationsquelleAutor mghie

  2. 12

    Mghie hat die richtige Antwort, hier ist ein Beispiel:

    procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   if Key=VK_DELETE then
     showmessage('Delete key was pressed');
end;

    Beachten Sie, dass die Benutzer können auch löschen von text mit Ausschneiden in die Zwischenablage, so müssen Sie möglicherweise zu behandeln, wie gut.

    Sie können auch text löschen, indem Sie Sie auswählen und dann neuen text eingeben.
    Hewgill, es ist leicht vermeidbar. Kann ich überprüfen, welcher Teil des Textes ausgewählt ist, in das KeyPress-Ereignis vor dass der Benutzer etwas zu schreiben.

    InformationsquelleAutor Ville Krumlinde

  3. 4

    Können Sie OnKeyDown event zu filtern, die unerwünschte Löschen - Taste gedrückt halten:

    procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift:
    TShiftState);
begin
  if Key = VK_DELETE then begin
    Beep;
    Key:= 0;
  end;
end;

    InformationsquelleAutor kludg

Schreibe einen Kommentar