Also ich hab mal eh bissl probiert, aber irgenwie schaff ich's nich alles unter einen Hut zu bekommen.
Wenn ich sowas versuche in der Art
Delphi-Quellcode:
procedure TForm2.AbRunde137KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if not (key = 48) then key:=0;
end;
Da schaffe ich es nicht die restlichen tasten abzufangen. (Key:=#0 funktioniert auch nich)
Hier schaffe ichs alle Anderen Tasten abzufangen.
Delphi-Quellcode:
procedure TForm2.NurGanzezahlen(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9']) then key:=#0;
end;
Allerdings bekomme ich hier die Entf Taste nicht freigeschalten