视频显示

Question

声明部分：
type
  client_videoinfo = record
     m_bRemoteChannel:byte; //对应服务端的通道号
     m_bSendMode:byte; //网络连接方式
     m_bImgFormat:byte; //图象格式，0为主通道图象/1为子通道图象
     m_sIPAddress:pchar; //服务器的IP地址
     m_sUserName:pchar; //用户名
     m_sUserPassword:pchar; //密码
     m_bUserCheck:boolean; //是否需要发送用户名和密码
     m_hShowVideo:HWND; //显示区域
  end;var
 clientvideoinfo:client_videoinfo;我做个监控软件，四个显示视频（Panel）框架程序如下：
 clientvideoinfo.m_hShowVideo:=Panel1.Handle;   //显示视频的控件名柄
clientvideoinfo.m_hShowVideo:=Panel2.Handle;   //显示视频的控件名柄
 clientvideoinfo.m_hShowVideo:=Panel3.Handle;   //显示视频的控件名柄
clientvideoinfo.m_hShowVideo:=Panel4.Handle;   //显示视频的控件名柄
但是程序是顺序执行的，到最后只能Panel4显示了，要怎么解决呢，最好有源码

Answer 1

//你应该一个通道对应一个client_videoinfo
var 
 clientvideoinfo:array [0..3] of client_videoinfo;clientvideoinfo[0].m_hShowVideo:=Panel1.Handle;   //显示视频的控件名柄 
clientvideoinfo[1].m_hShowVideo:=Panel2.Handle;   //显示视频的控件名柄 
clientvideoinfo[2].m_hShowVideo:=Panel3.Handle;   //显示视频的控件名柄 
clientvideoinfo[3].m_hShowVideo:=Panel4.Handle;   //显示视频的控件名柄