830
社区成员
发帖
与我相关
我的任务
分享Listview中单击它的Checkbox会触发什么事件
在Listview中单击它的Checkbox，我想根据某些条件限制不让选中，即单击该Checkbox后，如果不符合条件，则取消选择，不知是事件？请指教！
...全文
请发表友善的回复…
发表回复
不担心 2010-09-15
- 打赏
- 举报
如果你非要判断鼠标是不是点在checkbox那也行
网络上有现成的代码,在mouseup事件中判断
procedure TForm1.ListView1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
Item: TListItem;
HitTest: THitTests;
begin
// Which item belongs to the checkbox
Item := ListView1.GetItemAt(x, y);
// What kind of thing was hit on the item
HitTest := ListView1.GetHitTestInfoAt(x, y);
// If an Item was hit and exactly his checkbox
if (Item <> nil) and (HitTest = [htOnStateIcon]) then
begin
/////Click呢CheckBox，处理即可
end;
end;
网络上有现成的代码,在mouseup事件中判断
procedure TForm1.ListView1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
Item: TListItem;
HitTest: THitTests;
begin
// Which item belongs to the checkbox
Item := ListView1.GetItemAt(x, y);
// What kind of thing was hit on the item
HitTest := ListView1.GetHitTestInfoAt(x, y);
// If an Item was hit and exactly his checkbox
if (Item <> nil) and (HitTest = [htOnStateIcon]) then
begin
/////Click呢CheckBox，处理即可
end;
end;
sunyesy 2010-09-15
- 打赏
- 举报
[Quote=引用 2 楼 ecjtuhr 的回复:]
引用 1 楼 disburden 的回复:
Onclick
你试过了？
[/Quote]
经典！
引用 1 楼 disburden 的回复:
Onclick
你试过了？
[/Quote]
经典！
不担心 2010-09-15
- 打赏
- 举报
当然试过了
在listview的onclick事件里判断就行了
给个例子
在listview的onclick事件里判断就行了
给个例子
if Pos('牛',ListView1.Selected.Caption)>1 then
ListView1.Selected.Checked :=True;ecjtuhr 2010-09-14
- 打赏
- 举报
[Quote=引用 1 楼 disburden 的回复:]
Onclick
[/Quote]
你试过了？
Onclick
[/Quote]
你试过了？
不担心 2010-09-14
- 打赏
- 举报
Onclick
