editbox nur bestimtme keys zulassen

[MisterNiceGuy]

so: (Hab ich grad für dich geschrieben, also sei dankbar )

Delphi-Quellcode:

procedure TForm1.Edit4KeyPress(Sender: TObject; var Key: Char);
var i : integer;
    help : String;
    found: boolean;
begin
found := false;
help := edit1.Text+edit2.Text+edit3.Text;
for i:=1 to length(help) do
 if key = help[i] then found := true;

if not found then key := chr(0);
end;