OnKeyDown: Wert nicht erfassen

[momo54321]

ja genau
ohje... ich glaub jetzt bin ich unten durch^^

aber noch eine frage im anschluss.

Meine "Edit" (namens "tbInet") wird dennoch mit einem "VK_OEM_PERIOD" ("." >Punkt<) bestückt.
Das "Key := 0;" sollte doch eigentlich die Eingabe verhindern. oder?? zumindest möchte ich dies gerne.
("cbInetDot.SetFocus;" > wird wunderbar ausgeführt)

Delphi-Quellcode:

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