动态创建窗体和MediaPlayer后怎么Free掉的问题

Question

代码如下:
procedure TForm1.Button1Click(Sender:TObject);
var
  newfrm:TForm;
  Media:TMediaPlayer;
begin
  newfrm:=TForm.Create(nil);
  newfrm.Parent:=nil;
  Media:=TMediaPlayer.Create(newfrm);
  Media.Parent:=newfrm;
  Media.Display:=newfrm;
  Media.FileName:='c:\1.mpg';
  Media.Open;
  Media.Play;
end;
现在有个问题，就是关掉窗体后图像是没了，但还有声音，我想这肯定是窗体只是关闭而没free掉的原因，但具体怎么解决这个问题还请高手指点

Answer 1

楼上的，你说的这个方法我了解，但现在问题是我不知道怎么添加newfrm的close事件,我一开始是自己定义个过程NewFrmClose
  然后
  newfrm.Close:=NewFrmClose;
  可是这样不行

Answer 2

窗体Form的Close后
   Media.Free;

Answer 3

78hgdong(赤脚打天下)
   是哪个Form的Close啊，默认的Form1可以吗？好象不行，Close事件得另外自己写，自己添加吧

Answer 4

楼上几位都没有理解我的意思，你们说的这些方法我都知道，但问题是这些代码我应该写在哪里呢。
因为窗体是动态建立的，事先没有现成的Close事件可以让我把Free的代码写在里面，所以我这个也就变成了怎么样给动态建立的窗体添加close事件的问题，这样说大家应该明白是什么意思了吧

Answer 5

你既然动态的创建了窗体就要显式的释放掉这个窗体。NEWFRM。FREE
这个MEDIA的OWENER是NEWFRM所以当NEWFRM释放掉后，MEDIA会由NEWFRM自动被释放掉的。
所以还是因为你的窗体没有显式的释放掉

Answer 6

这样试试procedure TForm1.Button1Click(Sender:TObject);
var
  newfrm:TForm;
  Media:TMediaPlayer;
begin
  newfrm:=TForm.Create(nil);
  newfrm.Parent:=nil;
  Media:=TMediaPlayer.Create(newfrm);
  Media.Parent:=newfrm;
  Media.Display:=newfrm;
  Media.FileName:='c:\1.mpg';
  Media.Open;
  Media.Play;
  try
    newfrm.showmodal;
  finally
    newfrm.free;
  end;
end;

Answer 7

呵呵，楼上这位兄弟，你这个代码不对吧，你的free代码和创建代码都在一个buttonclick事件里，那么执行起来肯定是这边刚创建，这边就把它free掉了。另外我执行了一下你的代码，效果是新创建的窗体无法控制，点关闭按钮根本没反应

Answer 8

不可能吧。我试过了，完全可以的呀。要不就是你其他地方有问题
不信你重新建立一个工程。下边是所有代码。不过我播放的是MP3
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,MPlayer;type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormClick(Sender: TObject);
begin
showmessage('h');
end;procedure TForm1.Button1Click(Sender:TObject);
var
  newfrm:TForm;
  Media:TMediaPlayer;
begin
  newfrm:=TForm.Create(nil);
  newfrm.Parent:=nil;
  Media:=TMediaPlayer.Create(newfrm);
  Media.Parent:=newfrm;
  Media.Display:=newfrm;
  Media.FileName:='D:\我的音乐\花香.mp3';
  Media.Open;
  Media.Play;
  try
    newfrm.showmodal;
  finally
    newfrm.free;
  end;
end;
end.

Answer 9

procedure TForm1.FormDestroy(Sender: TObject);
begin
  Media.destroy;
end;

Answer 10

定义个过程NewFrmClose
  然后
  newfrm.Close:=NewFrmClose;
  可是这样不行
NewFrmClose 需是Of object的 即要定义在Class里面。

Answer 11

to coffee36(咖啡) ：
    我又试了一遍，代码都一样，但就是没反应，奇了怪了to LocustWei(LocustWei) :
    具体是怎么做的啊，我下面不仅要写close事件，还要写form的resize事件，那会儿就不象close这么解决了

Answer 12

coffee36(咖啡)的方法应该是可以的，因为他用的是模态窗体

Answer 13

TForm1= class(TForm)
  private
    { Private declarations }
    procedure FormClose1(Sender: TObject; var Action: TCloseAction);
  end;procedure TForm1.FormClose1(Sender: TObject;
  var Action: TCloseAction);
begin
  Action := caFree;
end;//////////////////////////////////////
procedure TForm1.Button1Click(Sender:TObject);
var
  newfrm:TForm;
  Media:TMediaPlayer;
begin
  newfrm:=TForm.Create(self);  //注意
  newfrm.Parent:=nil;
  newfrm.onClose := FormClose1; 
  Media:=TMediaPlayer.Create(newfrm);
  Media.Parent:=newfrm;
  Media.Display:=newfrm;
  Media.FileName:='c:\1.mpg';
  Media.Open;
  Media.Play;
end;