Eventlist

[Der schöne Günther]

Ich habe keine Ahnung was genau TMethod ist, aber ich bin mir sicher das ist nicht was du suchst. Du willst nicht ein TMethod, sondern wohl ein reference to procedure(Sender: TObject; Var param1: String); oder [Delphi]procedure(Sender: TObject; Var param1: String) of object;


Deklariere in deiner core.pas mal
TMyCustomProcedure = reference to procedure(Sender: TObject; Var param1: String); oder
TMyCustomProcedure = procedure(Sender: TObject; Var param1: String) of object; und ändere TMethod auf TMyCustomProcedure ab.


Dann sagt dir der Compiler noch dass dein Button2Click nicht funktionieren kann da du gerne var -Parameter möchtest und 'Wupti' kein var ist.

Also abgeändert auf

Delphi-Quellcode:

procedure TForm52.Button2Click(Sender: TObject);
var
   param: String;
begin
   param := 'Wupti';
   mylist.GetEvent('Event')(NIL, param);
end;

und was war hoffentlich was du wolltest


PS: Nimmst du bitte das Meth aus dem Button1-Click, harte Drogen sind in der Delphi-Praxis nicht zulässig.