Char(VK_DELETE)

[Nils_13]

Hi,

ich kann Backspace drücken, aber Entf nicht. Warum ?

Delphi-Quellcode:

procedure TfrmCreate.eKMKeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in ['0'..'9', ',', '.', Char(VK_BACK), Char(VK_DELETE)]) then
    Key := #0;
end;

[iKilledKenny]

VK_BACK = 8 = ASCII 8 = Backspace
VK_DELETE = 46 != ASCII 127 = Delete

Heisst im Klartext nimm die ASCII-Codes anstelle der VK-Codes.

Delphi-Quellcode:

procedure TfrmCreate.eKMKeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in ['0'..'9', ',', '.', Char(8), Char(127)]) then
    Key := #0;
end;

[Muetze1]

Und um sich den unnötigen Typecast zu sparen so schreiben (macht ihr ja beim zurücksetzen auch so...):

Delphi-Quellcode:

procedure TfrmCreate.eKMKeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in ['0'..'9', ',', '.', #8, #127]) then
    Key := #0;
end;

[Nils_13]

Hm, ich kann Entf immer noch nicht benutzen.

[Ghostwalker]

Debug doch einfach mal rein und schau dir an, ob er überhaupt bei "entf" in die Methode reinspringt und wenn ja, welchen char-code zu bekommst

[Nils_13]

Hm, bei Entf springt er nicht in OnKeyPress, ansonsten schon.

[Ghostwalker]

Tja, dann isses wohl logisch das Entf nicht funktionieren kann

Probier stattdessen mal onKeyDown

[Nils_13]

Wenn er bei Entf nicht reinspringt müsste es doch funktionieren, da Key := #0 dann nicht durchgeführt wird.

[Ghostwalker]

Was erwartest du denn, das er tut, wenn du Entf drückst ?

[Nils_13]

Ich erwarte dass er das normale Ereignis durchführt, also das Zeichen hinter dem Caret (fälschlicherweise auch Cursor genannt) löscht.