CtrlList判断点击的是否为CheckBox

LPNMITEMACTIVATE pNMItemActivate = reinterpret_cast<LPNMITEMACTIVATE>(pNMHDR);
if ( 0 == pNMItemActivate->iSubItem )
{
	TCHAR sText[MAX_PATH] = { 0 };
	DWORD dwPos = GetMessagePos();  
	CPoint point( LOWORD(dwPos), HIWORD(dwPos) );  

	m_LstCtr.ScreenToClient(&point);  

	LVHITTESTINFO lvinfo;  
	lvinfo.pt = point;  
	lvinfo.flags = LVHT_ABOVE;  

	UINT nFlag;  
	int nItem = m_LstCtr.HitTest(point, &nFlag);  
	//判断是否点在checkbox上  
	if(nFlag == LVHT_ONITEMSTATEICON)  
	{  
		//点击了CheckBox
		pAccount->bAutoLogin = !m_LstCtr.GetCheck(pNMItemActivate->iItem);
		DebugInf(L"点选了暂停框: %02X", pAccount->bAutoLogin);
	}  
	else
	{
		//点击的是空白区域
		wsprintf(sText, L"%02X", m_LstCtr.GetCheck(pNMItemActivate->iItem));		
		pAccount->bAutoLogin = !m_LstCtr.GetCheck(pNMItemActivate->iItem);
	}
}

可以通过修改该控件的Top属性来实现将其提前。具体的实现步骤如下: 1. 获取该控件的父容器,例如一个Panel控件。 2. 获取该容器中所有的子控件,并将它们存储到一个数组中。 3. 遍历该数组,找到需要提前的控件。 4. 将该控件从数组中删除,并将其插入到需要提前的位置。 5. 遍历数组中的所有控件,根据其在数组中的位置设置Top属性,使得它们按照从上到下的顺序排列。 下面是一个示例代码,假设需要将名为 "Button1" 的按钮提前到第二个位置,代码如下: ``` delphi var i, newIndex: Integer; parentCtrl: TWinControl; ctrlList: TList; targetCtrl: TControl; begin parentCtrl := Panel1; targetCtrl := Button1; // 获取容器中所有控件 ctrlList := TList.Create; try for i := 0 to parentCtrl.ControlCount - 1 do ctrlList.Add(parentCtrl.Controls[i]); // 找到需要提前的控件,并将其插入到数组中的指定位置 newIndex := 1; // 将目标控件提前到第二个位置 ctrlList.Remove(targetCtrl); ctrlList.Insert(newIndex, targetCtrl); // 根据控件在数组中的位置设置Top属性 for i := 0 to ctrlList.Count - 1 do TControl(ctrlList[i]).Top := i * TControl(ctrlList[i]).Height; finally ctrlList.Free; end; end; ``` 注意,该代码只是一个示例,实际情况中需要根据具体的需求进行修改。例如,如果容器中的控件不是按照从上到下的顺序排列,需要先对它们进行排序。另外,如果容器中的控件有不同的高度,需要根据它们的高度来计算Top属性。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值