Ich hab hier ein kleines Problem, bei dem ich irgendwie nicht weiterkomm: Ich erstelle dynamisch ein paar Edits, denen ich das gleiche keyPress zurordnen will:
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;
Wenn ich jetzt die Edits erstelle, weiss ich nicht, wie ich die Key-Variable übergeben soll.
Sieht bis jetzt so aus:
Delphi-Quellcode:
for i:=0 to n-1 do
begin
Earray[i]:= TEdit.Create(sympform); // Array of TEdit
with Earray[i] do
begin
parent:= sympform;
//...
onkeypress:= MyKeyPress(Earray[i],?????);
end;
Wie kann ich das machen
