delphi4arab منتديات دلفي للعرب

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

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