dynamischen Edits ein Onkeypress zuorden

[Nikolas]

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

[Bernhard Geyer]

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; 
  end;
end;

Du mußt die Methode ohne Parameter angeben. Im der OnKeyPress-Property wird nur ein Methodenzeiger mit pasender Signatur gespeichert.

[Neutral General]

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; 
        end;

So müsste es gehen.
[edit]zu spät [/edit]

[Nikolas]

Vielen Dank schonmal, nur leider findet der Compiler das nicht so gut:

Zitat:

[Fehler] Unit2.pas(59): Inkompatible Typen: 'Methodenzeiger und reguläre Prozedur'

[Mystic]

Vielleicht so?

onkeypress:= @MyKeyPress;

[Nikolas]

Ne, leider auch nichts:

Zitat:

[Fehler] Unit2.pas(59): Inkompatible Typen: 'TKeyPressEvent' und 'Pointer'

[Mystic]

Ist die Prozedur als Methode des Formulars deklariert?

[Nikolas]

Nein, sie ist in eine Unit ausgelagert, die ich im Interface-Teil in den uses habe.

[Mystic]

Versuchs mal so:

Delphi-Quellcode:

type
  DasFormular = class(TForm)
    ...
    procedure MyKeyPressM(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

Delphi-Quellcode:

procedure DasFormular.MyKeyPressM(Sender: TObject; var Key: Char);
begin
  MyKeyPress(Sender, Key);
end;

end.

onkeypress:= MyKeyPressM;

[ibp]

also bei mir functioniert das so wie oben geschrieben, teste doch mal und hole dein mykeypress raus aus der unit und leg sie da rein, wo du das edit erstellst...