Jak koniecznie chcesz mieć obiekt dostępny zewsząd i pod taką samą nazwą to nazwij ten komponent jakoś inaczej, w pliku źródłowym głównego okna (w sekcji Interface) zadeklaruj zmienną globalną o nazwie MediaPlayer
czy jakiejkolwiek innej, byle innej niż nazwa komponentu; W konstruktorze klasy głównego okna przepisz referencję do tej zmiennej i gotowe:
interface
type
TMainForm = class(TForm)
Player: TMediaPlayer;
{..}
end;
var
MainForm: TMainForm;
MediaPlayer: TMediaPlayer;
implementation
{..}
constructor TMainForm.FormCreate(Sender: TObject);
begin
MediaPlayer := Self.Player;
end;
Każdy moduł posiadający na liście Uses moduł głównego okna, będzie miał dostęp do globalnej zmiennej MediaPlayer
, więc będzie możliwe bezpośrednie odwołanie się do komponentu, jedynie na podstawie wymienionej nazwy.