اعتراض وراثي control mediaplayer has no parent windows

[rabihpascal]

السلام عليكم
لماذا هذا الا عتراض'control mediaplayer has no parent windows
عند اغلاق النموذج الرئيسي حيث 'mediaplayer.display:=form2'

[محمد عبد العزيز]

وعليكم السلام

أرفق مثال بسيط، (لا تنسى ذكر اصدار دلفي)

[rabihpascal]

procedure TForm6.MediaPlayer1PostClick(Sender: TObject; Button: TMPBtnType
var
subtring;
mywordtring;
begin
myword:=edit1.Text;
sub:=copy(myword,length(myword)-3,4
if sub='.mpg' then
form2.Show

if button=btplay then
Mediaplayer1.Play
timer1.Enabled:=true
if button=btplay then
mediaplayer1.Display:=form2
end;

مبرمج على 2009
لكن قمت بنقله الى EX4

[محمد عبد العزيز]

حسب ما فهمت من الكود فوق مكون MediaPlayer1 موجود على النافذة Form6 ؟

تغيير display يجب ان يكون قبل Play
من الاحسن وضع مكون Panel بالنافذة Form
وتاخذ Display كقيمة Form2.Panel1
لا تنسى ان تظهر النافذة Form2 بShow قبل Play