Ereignis-Handler zuweisen

[dirk.be]

Hallo zusammen,

ich habe gerade ein Brett vorm Kopf, aber ich finde einfach den Fehler nicht. Warum funktioniert das so nicht?

Aus der Unit statusfrm:

Code: Alles auswählen

type
  TStatusForm = class(TForm)
    // ...
    procedure ScanTerminate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;
 
// ...
 
procedure TStatusForm.ScanTerminate(Sender: TObject);
begin
  Hide;
end; 

Aus der Unit scanthrd:

Code: Alles auswählen

constructor TScanThread.Create(const RootDir: String);
begin
  // ...
  FStatusForm:= TStatusForm.Create(AnalyzerForm);
  OnTerminate:= FStatusForm.ScanTerminate;    // <-- hier gibt's den Fehler! (s.u.)
  FreeOnTerminate:= true;
  inherited Create(true);
end; 

Fehlermeldung

Die Klasse TScanThread im 2. Codeblock habe ich von TThread abgeleitet und dort ist OnTerminate als property vom Typ TNotifyEvent definiert. Irgendwie checke ich nicht, warum ich die Methode nicht wie oben zuweisen kann?!

Gruß Dirk

[m.fuchs]

Code: Alles auswählen

constructor TScanThread.Create(const RootDir: String);
begin
  // ...
  FStatusForm:= TStatusForm.Create(AnalyzerForm);
  OnTerminate:= @FStatusForm.ScanTerminate;
  FreeOnTerminate:= true;
  inherited Create(true);
end; 

Du musst ein @ davor setzen. Das @ bedeutet: setze einen Zeiger auf die Funktion in die Property. Ohne @ wird die Funktion aufgerufen und ihr Ergebnis in die Property gegeben. Weil das Funktionsresult aber kein Zeiger ist, meckert der Compiler.

[dirk.be]

Au man, so einfach kann es sein! Hab zwischenzeitlich zu lange in VB und C# rumprogrammiert, da kommt man schon mal durcheinander mit der Syntax. Ich dachte, der Methodenname würde der Aufrufadresse entsprechen. Wenn der Compiler hier einen Funktionsaufruf versucht, verstehe ich jetzt auch die Fehlermeldung...

Besten Dank! Thema hat sich hiermit schon erledigt.

Gruß Dirk