On Ereignisse zur Laufzeit hinzufuegen

[maximov]

Moin:

Delphi-Quellcode:

Quellcode: markieren
procedure FTPWorkEnd(self : TObject; Sender: TObject; AWorkMode: TWorkMode);
begin
  if sender is TidFtp then TidFTP(Sender).Disconnect;
end;

dann siehst du auch ob es tatsäcjlich ein ftp-ding ist

// Edit:

moment mal: seh grad du machst das mit ner regulären procedure! Warum das? macht normal keinen sinn?

Aber wenn du die addresse des events ermittelst (@bla) dann musst du aber auch die daten ermitteln, sprich das object angeben, sonst ist self nachher nicht definiert:

Delphi-Quellcode:

var m:TMethod;
..
m.code := @bla;
m.data := das object das später als self übergeben werden soll!
...
FFTPConnections[high(FFTPConnections)].FFTPConnction.OnWorkEnd := TDerEventTyp(m);

sonst kann das imo nur fehlschlagen