dynamischen Edits ein Onkeypress zuorden

[Nikolas]

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:

Delphi-Quellcode:

onkeypress:= MyKeyPressM;

:bouncing4: :dancer: :party: