Vielen Dank!!! Ich hab's jetzt so geschafft:
Doch wieder in der anderen
Unit:
Delphi-Quellcode:
procedure MyKeyPress(Sender: TEdit; var Key: Char);
var
str,str1,str2: string;
begin
//allgemeine Sperrung von allen Zeichen ausser
//backspace, dem Komma und Zahlen
if not (key in[#8,#44,#48..#57]) then key:=#0;
//...usw;
Dann in der
Unit in der ich die Edits erstelle:
Delphi-Quellcode:
procedure MyKeyPressM(Sender: Tobject; var Key: Char);
begin
mykeypress(Sender as TEdit, Key);
end;
Und beim Erstellen:
onkeypress:= MyKeyPressM;
Erwarte das Beste und bereite dich auf das Schlimmste vor.