zur Laufzeit erstellte komponente an eine Funktion übergeben

[Alf]

Hi Leute

erstelle zur Laufzeit mehrere comp.
nun mus eine davon an eine Procedure oder Funktion übergeben werden,
aber ich erhalte immer eine Fehlermeldung.

Delphi-Quellcode:

var
  MyPlayer: TMediaPlayer;


Procedure TForm1.PlayerCreate;
var
   p: Integer;
begin

     for p:=1 to pindex do
     begin
          MyPlayer:=TMediaPlayer.Create(self);
          MyPlayer.Name:='MyPlayer'+IntToStr(p);
          MyPlayer.parent:=self;
          MyPlayer.Visible:=false;
     end;

end;

...........
..........

begin

     ...........
     ...........

     SetMPVolume(TMediaPlayer(FindComponent('MyPlayer'+IntToStr(i+1))),round(tin));

     ..........
     ..........
end;

Die Fehlermeldung: Zugriffsverletzung bei Adresse xxxxxx .
ist der Aufruf Findcomponent dafür falsch?


Gruss Alf

[Christian Seehase]

Moin Alf,

nein, grundsätzlich kannst du FindComponent verwenden, allerdings ist dies eine Methode einer Komponente.
Erfolgt der Aufruf nicht in der Komponente die Owner der gesuchten Komponente ist gibt die Funktion nil zurück.
Du müsstest also angeben, welches FindComponent Du verwenden willst, z.B:

Form1.FindComponent(...) Ich vermute mal, dass SetMPVolume nicht innerhalb einer Methode von TForm1 aufgerufen wird.

[Alf]

Hi und Juhuuu

das wars und schon funct alles

Daaaanke

Gruss Alf