5,392
社区成员
发帖
与我相关
我的任务
分享
var
j: integer;
p: TCnQQPerson;
for j:=1 to ADOQuery_Select.RecordCount do
begin
p:= TCnQQPerson.Create;
p.UserID := Trim(ADOQuery_Select.FieldValues['renyuanbianhao']);
p.UserName := Trim(ADOQuery_Select.FieldValues['renyuanxingming']);
p.UserDesc := Trim(ADOQuery_Select.FieldValues['renyuanxingming']); //人员备注或别名
p.UserHead := img+'3_off.bmp';
p.NameColor := clRed;
//CnQQPanel1.Groups[i-1].QQGroup.AddMember(p); 注意:取消这行要在下面添的
ADOQuery_Select.Next;
end;
//想循环后在这里一起添加到QQGroup,怎么写啊