Ich weiß nicht ob ich Dich richtig verstanden habe, vielleicht brngt das Dich weiter:
Delphi-Quellcode:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key....
else begin
// machwas
key:=0;
end;
end;
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key....
else begin
// machwas
key:='0;
end;
end;
Gruß
K-H