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.

[Ghostwalker]

Dann würd ich mal sagen, ist da ein Bug in der von dir benutzen Komponente :) oder es fehlt eine Einstellung.

[Nils_13]

Du hast Recht. Die Editkomponente von Delphi7 ist fehlerhaft. Danke für den Hinweis. Ich denke das war dann so langsam der endgültige Todestoß für Delphi bei mir. Ich muss eh Lazarus benutzen und solche Fehler sind mir echt zu hoch.

Edit: Nur in diesem Projekt.... Da stimmt was nicht.

[Ghostwalker]

Dann viel Spaß mit Lazarus :)