1,打开多个文件
设置OpenDialog组件的Options属性中ofAllowMultiSelect选项为True,然后一起添加到播放列表中
2,我还没有遇到过这种情况,因为继承窗体的时候我通常不把父窗体放在程序中运行,只让它起一个继承作用,你的这种情况有一种方法是肯定可以解决的,就是拦截被继承窗体的最大化最小化消息,但这样麻烦一点,估计这样也可以解决:
在被继承窗体的OnResize事件中去掉inherited;
设置OpenDialog组件的Options属性中ofAllowMultiSelect选项为True,然后一起添加到播放列表中
2,我还没有遇到过这种情况,因为继承窗体的时候我通常不把父窗体放在程序中运行,只让它起一个继承作用,你的这种情况有一种方法是肯定可以解决的,就是拦截被继承窗体的最大化最小化消息,但这样麻烦一点,估计这样也可以解决:
在被继承窗体的OnResize事件中去掉inherited;
解决方案 »
- Delphi获取CPU序列号\网卡MAC地址\IP\硬盘序列号(测试能用马上500分)
- 菜鸟求救,不在同一个局域网内的两台机器,pc-1(adsl-1)想访问pc-2(adsl-2)的sql-server,应如何实现?不胜感激~~~~~~~~~
- delphi在调用Active dll 组件时如何解决内存泄露错误(为什么不能调用无模式Active dll)
- delphi 中的sql语句问题
- delphi开发WebService问题“如何从客户端更改服务器端SQLConnection属性”(内详)
- 控制输入内容的问题??急用??
- Help!关于ClientSocket中的 "Asynchronous socket error 10061"出错的问题,
- pascal文件指针移动问题,在pascal文件操作中,怎么样才可以将pascal文件的指针后退一个位置,急急急!
- 在serversocket中如何用IP地址实现消息转发?急!!!!!!!!
- RAD XE4 连接Mysql 的方法?
- 怎样让两个edit内容同步输入啊?
- delphi代码里怎么样实现sybase数据库中动态取消或建立某字段为索引字段或其他的属性字段?
用MDI试试
就可以实现了!
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, MPlayer;type
TForm1 = class(TForm)
MediaPlayer1: TMediaPlayer;
Button1: TButton;
OpenDialog1: TOpenDialog;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
opendialog1.Execute;
Mediaplayer1.filename:=Opendialog1.FileName;
Mediaplayer1.Open;
end;end.