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));

markieren

Delphi-Quellcode:

			procedure TForm1.tbPLZKeyPress(Sender: TObject; var Key: Char);

begin

  if NOT (Key in [#08, '0'..'9']) then

    Key := #0;

end;

markieren

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;

OnKeyDown: Wert nicht erfassen

OnKeyDown: Wert nicht erfassen

Forumregeln