进销存软件版1楼: 我使用LMDExplorerBarStorage给LMDExplorerBar做子项。
怎样动态生成子项？
动态生成Sections及其Items？

2楼: LMDExplorerBarStorage1.Sections[0].Items[0].Create(？);
？里面是什么？ 如免费进销存系统

3楼: form1.height:=screen.height;
form1.width:=Screen.width;
MediaPlayer1.display:=Form1;
mediaplayer1.DisplayRect:=form1.ClientRect;
或者：
form1.clientwidth:=screen.width;
form1.clientheight:=screen.height;
mediaplayer1.displayrect:=(0,0,form1.clientwidth,form1.clientwidth);

以上全屏要首先设form1的WindowState为wsMaximized
设form1的BorderStyle为bsNone

4楼: 不是这个意思。我没打算把视频投到什么地方，就是用原来WMP自己的。有的计算机在播放的时候双击播放界面可以全屏，在有的计算机上就不可以。所以我加了一个button让WMP全屏，问题是，在播放的时候单击这个button没有问题，但不播放的时候，单击会有异常出现。我的问题是：
1、为什么有的计算机上双击WMP可以全屏，有的就不可以，安装的WMP是v9
2、怎样判断WMP当前是否在播放

5楼: 在 controls 里还有许多属性和方法，你可以仔细看一下，我以前认真研究过WMP，现在几年没看这个东西了，都忘了。

6楼: wmp有一个事件，好像是statusChanged，有两个参数oldStatus /newStatus :integer，我以前用过，具体的数值测试一下就知道了，这样就可以跟踪wmp的状态了

进销存软件版7楼: 当然不播放时就出现异常，由于WMP是用的DirectShow的鼻祖了吧，在不播放时，去修改数据肯定要出现异常，我以前用DirectShow也是哪样的，你最好先判断一下再去

8楼: 对于全屏的控制，你还不如自已拦截消息，再用happycyp
的方法，来设置全屏

procedure MyMessage(var Msg: TMsg; var Handled: Boolean);

procedure TPlayVCDForm.MyMessage(var Msg: TMsg; var Handled: Boolean);
begin

// switch(Msg.message)
case Msg.message of

// WM_MOUSEMOVE, WM_LBUTTONDBLCLK,
WM_LBUTTONDOWN:
if Msg.hwnd = ShockwaveFlash1.Handle then //ShockwaveFlash1.Handle是Flash控件的句柄，你要拦截WMP的，就设成WMP的
begin
Handled := true;
end;

WM_RBUTTONDOWN:
// , WM_RBUTTONDBLCLK:
if Msg.hwnd = ShockwaveFlash1.Handle then
begin
// PopupMenu1.Popup(Msg.pt.X, Msg.pt.Y);
Handled := true;
end;
end;
end;

procedure TPlayVCDForm.FormShow(Sender: TObject);
begin
// setcursorpos(screen.width+10,screen.height+10);

Application.OnMessage := MyMessage;
end;