Delphi-PRAXiS - Bass.dll Beispiel custloop in Klasse übersetzen

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Multimedia (https://www.delphipraxis.net/16-multimedia/)

- - Bass.dll Beispiel custloop in Klasse übersetzen (https://www.delphipraxis.net/188435-bass-dll-beispiel-custloop-klasse-uebersetzen.html)

Bass.dll Beispiel custloop in Klasse übersetzen

Hallo,

in den Beispielen der Bass.dll (

http://www.un4seen.com/ ) gibt es das Beispiel "custloop". Leider ist alles direkt in der Unit 1 geschrieben und
ich habe Probleme, daraus eine Klasse zu machen.

Ich wusste z.B. nicht, was ich als Vorfahr nehmen sollte, da habe ich jetzt mal TCustomControl gewählt.

Mein jetziges Problem ist folgendes:

Delphi-Quellcode:

			procedure TScanThread.Execute;

begin

  inherited;

  Form1.ScanPeaks2(FDecoder);

  Terminate;

end;

ich brauche dort statt Form1 eine andere Instanz...aber von was ??

Gruß Julian

AW: Bass.dll Beispiel custloop in Klasse übersetzen

von deiner Klasse ?!? BZW der Instanz in welcher ScanPeaks2 liegt