小编rsl*_*tgy的帖子

我试图从桌面拖放一个视频文件(如.avi)但是我不能把它带到我的程序.但是当我试图拖放到我的程序里面它工作正常.对于ex:我有一个edittext我的专业人员和ı里面的列表框可以将edittext内的文本移动到listbox.我无法得到有什么区别？

我使用openDialog拍摄视频.但是我想用拖放来改变它.

procedure TForm1.Button1Click(Sender: TObject);
   begin
     if OpenDialog1.Execute then
       begin
          MediaPlayer1.DeviceType:=dtAutoSelect;
          MediaPlayer1.FileName := OpenDialog1.FileName;
          Label1.Caption := ExtractFileExt(MediaPlayer1.FileName);
          MediaPlayer1.Open;
          MediaPlayer1.Display:=Self;
          MediaPlayer1.DisplayRect := Rect(panel1.Left,panel1.Top,panel1.Width,panel1.Height);
          panel1.Visible:=false;
          MediaPlayer1.Play;
       end;

   end;