Event Handling

[sirius]

Hier gibt es keinen Zauberstab:

Delphi-Quellcode:

type TEineMethode=procedure of object;

type TFoo=class
       procedure EineMethode;
       procedure andereMethode;
     end;

var Foo:TFoo;

//jetzt kann man eben irgendwo (für Ereignisse meist in einer Klasse)
//eine Variable deklarieren
var gEineMethode:TeineMethode;

begin
  Foo:=TFoo.Create;
  
  gEineMethode:=Foo.EineMethode;
  //jetzt steht in der Variablen gEineMethode der Zeiger auf die Methode EineMethode der Instanz Foo. Das sind simple 8 Bytes (2 Zeiger)
  //jetzt kannst du geMeineMethode ainfach aufrufen und es wird die darin gespeicherte Methode aufgerufen
  gEineMethode;

  //und wir können eine andere Methode drin speichern:
  gEineMethode:=Foo.andereMethode;
  //und aufrufen
  gEineMethode
end;