OnKeyDown: Wert nicht erfassen

[momo54321]

Hi,
steh gerade etwas auf dem schlauch.
wie war noch gleich der wert in einem OnKeyDown, welcher beim OnKeyPress als Key := #0 definiert wird?

Klar umgehen könnte man es mit nem Copy Befehl, scheint mir aber nicht gerade elegant zu sein.
--> Copy(TextBox.Text,0,(Length(TextBox.Text)-1));

Delphi-Quellcode:

procedure TForm1.tbPLZKeyPress(Sender: TObject; var Key: Char);
begin
  if NOT (Key in [#08, '0'..'9']) then
    Key := #0;
end;

Delphi-Quellcode:

procedure TForm1.tbInetKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   case Key of
     VK_OEM_PERIOD: begin
       // Key soll nicht im Objekt (hier: tbInet) erfasst werden    /////////    nicht elegant --> tbInet.Text := Copy(tbInet.Text,0,(Length(tbInet.Text)-1));
       cbInetDot.SetFocus;
     end;
   end;
end;