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;