视频显示

[qlonsh]

声明部分：
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显示了，要怎么解决呢，最好有源码

[Rex_love_Burger]

//你应该一个通道对应一个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; //显示视频的控件名柄

[meiZiNick]

支持搂主，收藏

[shenshenpanpan]

不错，收藏了