delphi4arab منتديات دلفي للعرب
اعتراض وراثي control mediaplayer has no parent windows - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : اعتراض وراثي control mediaplayer has no parent windows (/showthread.php?tid=5905)



اعتراض وراثي control mediaplayer has no parent windows - rabihpascal - 01-02-2014

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


اعتراض وراثي control mediaplayer has no parent windows - محمد عبد العزيز - 01-02-2014

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

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



اعتراض وراثي control mediaplayer has no parent windows - rabihpascal - 03-02-2014

procedure TForm6.MediaPlayer1PostClick(Sender: TObject; Button: TMPBtnType
var
subConfusedtring;
mywordConfusedtring;
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


اعتراض وراثي control mediaplayer has no parent windows - محمد عبد العزيز - 05-02-2014


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

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