Runtime Objekt & Event

[theomega]

Hallo Leute,
ich hab folgenden Code in einer zweiten Unit:

Delphi-Quellcode:

var WinAmpCtr1: TWinAmpCtr;

procedure TrackChange(Sender: TObject);
begin;

end;

procedure init;
begin;
WinAmpCtr1 := TWinAmpCtr.create(nil);
WinAmpCtr1.OnPlayChange:=TrackChange;


end;

init wird von der haupt-unit aus aufgerufen. Dummerweise wird die Unit nicht kompliert, weil er das mit der Zuweisung der Funktion zu dem Event nicht mag. Die Ausführung stimmt auf jeden Fall, was komisch ist, ist, dass OnPlayChange vom Typ TNotifyEvent ist, wie wandel ich eine Procedure darin um?

Danke für ein bischen Hilfe
TO

[Dax]

TNotifyEvent ist doch als procedure(Sender: TObject) OF OBJECT deklariert, das bedeutet: Du musst deine Prozedur in eine Klasse einbauen, ansonsten ist es kein TNotifyEvent.

Beispiel:

Delphi-Quellcode:

type
  TProcContainer = class
  private
    fProc1: TNotifyEvent:
  published
    property TrackChange: TNotifyEvent read fProc1 write fProc1;
  end;

[theomega]

danke erstmal, aber geht das nicht simpler?

[Dax]

Wenn du sauberen Code produzieren willst leider nicht.
TNotifyEvent braucht eine Klasse, um funktionieren zu können.

[Sanchez]

Zitat von theomega:

danke erstmal, aber geht das nicht simpler?

Doch geht es. Du könntest eine Klasse von TWinAmpCtr ableiten und auf dein gewünschtes Ereignis entsprechend reagieren.
Das wäre IMHO sauberer. Weil du dein Objekt ohnehin dynamisch erzeugst hast du damit 0 Mehraufwand.

Was dir allerdings an der Lösung ohne Klasse gut gefällt, versteh ich nicht.

grüße, daniel

[theomega]

ich hab jetzt mal folgendes konstruiert:

Delphi-Quellcode:

type
  TProcContainer = class
  private
    fProc1: TNotifyEvent;
  published
    property TrackChange: TNotifyEvent read fProc1 write fProc1;
  end;


implementation

var WinAmpCtr1: TWinAmpCtr;

procedure fProc1;
begin;
showmessage('Test');
end;

procedure init;
begin;
WinAmpCtr1 := TWinAmpCtr.create(nil);
WinAmpCtr1.OnPlayChange:=TProcContainer.TrackChange;


end;

wieso geht das jetzt nicht? Compiler mault rum mit "Methodenbezeichner Erweartet");

[Sanchez]

TrackChange ist ja auch keine Methode, sondern eine Property.
Außerdem erzeugst du keine Instanz von TProcContainer. Deswegen kannst der Property auch niemals einen Wert zuweisen,
ohne das es kracht.

Warum leitest du nicht einfach von TWinAmpCtr ab?