delphi动态创建窗体的事件（高分紧急）

我动态创建一个用来播放视频的窗体，开始时为这个窗体指定大小，当拖动这个视频窗体并要改变其大小的时候，怎么样定义这个film窗体的
FormCanResize事件并得以应用？并能让视频随着film窗体大小的变化而等比例缩放呢？

//这是其它窗体的CanResize事件
｛
procedure TForm1.FormCanResize(Sender: TObject; var NewWidth,
NewHeight: Integer; var Resize: Boolean);
begin
procedure TForm1.Button10Click(Sender: TObject);
｝

//这是创建film窗体的代码
var
film:tform;
begin
film:=tform.Create(self);
film.Caption:=mediaplayer1.FileName;
film.Width:=600;
film.Height:=400;
film.Position:=podesktopcenter;
film.Visible :=true;
mediaplayer1.Display :=film;
mediaplayer1.DisplayRect :=film.ClientRect ;
end;

请高手不吝赐教！感激不尽！

procedure FilmResize(Sender: TObject; var NewWidth,
NewHeight: Integer; var Resize: Boolean);//自定一个过程

procedure TForm1.FilmResize(Sender: TObject; var NewWidth,
NewHeight: Integer; var Resize: Boolean); //实现
begin
mediaplayer1.DisplayRect := TForm(Sender).ClientRect ;
Resize := True;
end;

var
film:tform;
begin
film:=tform.Create(self);
film.Caption:=mediaplayer1.FileName;
film.Width:=600;
film.Height:=400;
film.Position:=podesktopcenter;
film.OnCanResize := FilmResize ;//把OnCanResize事件指针指向FilmResize
film.Visible :=true;
mediaplayer1.Display :=film;
mediaplayer1.DisplayRect :=film.ClientRect ;
//mediaplayer1.Open ;
//mediaplayer1.Play ;
end;

搜一下：delphi动态创建窗体的事件（高分紧急）

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息