procedure TForm1.listChanging(Sender: TObject;
Item: TListItem;
Change: TItemChange;
var AllowChange: Boolean);
begin
FK:=ITEM.Checked;
end;
procedure TForm1.listChange(Sender: TObject;
Item: TListItem;
Change: TItemChange);
begin
IF (NOT F) AND (FK<>ITEM.Checked) then
SHOWMESSAGE('CHECKED');
end;
这样的组合帮你获得这个事件,当checke改变时显示'checked'
因为changing是改变前,你先记录下item.checket的状态
如果在改变后change事件里他改变了,那证明checked过