dynamischen Edits ein Onkeypress zuorden

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