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.