Verwendung von Events

[hadschi92]

Müsste es (gekürzt) dann so aussehen?

Delphi-Quellcode:

procedure TAudioControl.StartSavingThreadAsWave(Sender: TObject);
begin  
  FWaveOut := TWaveOut.Create(nil);
  FWaveOut.OnDone := ProcessSavingThreadAsWave;
end;

procedure TAudioControl.ProcessSavingThreadAsWave(Sender: TObject);
begin
  FWaveOut.OnDone := ProcessSavingThreadAsWave;
end;

Dabei bekomme ich dann leider diesen Fehler ausgespuckt:

Code:

[dcc32 Error] AudioControl.pas(227): E2010 Incompatible types: 'TComponent' and 'TObject'

Und das verwirrt mit bisschen. Ändere ich alles wieder auf TComponent, dann kommt der Fehler aus meinem vorigen Posting. Muss meine Klasse denn von einer bestimmten Komponente erben wie TComponent oder TObject?

[Bummi]

wenn Du hier ankommst

Delphi-Quellcode:

procedure TAudioControl.ProcessSavingThreadAsWave(Sender: TComponent);
begin
 // hier das was Du tun möchtest mit ProcessSavingThreadAsWave
end;

muss das obige
 FWaveOut.OnDone := ProcessSavingThreadAsWave; in StartSavingThreadAsWave ja schon funktioniert haben ....

[Sir Rufo]

Oh, da hatte ich mich verlesen, der Parameter muss vom Typ TComponent sein.

(siehe TOutputDoneEvent = procedure(Sender : TComponent) of object; )

Also so muss die Methode deklariert sein

Delphi-Quellcode:

procedure TAudioControl.ProcessSavingThreadAsWave(Sender: TComponent);
begin
  ...
end;

Tutorial zu Events http://www.delphi-treff.de/tutorials...gnisse-events/