OnChange事件中用Item获得CheckBox选中(或取消)的项!

解决方案 »

  1.   

    在OnMouseDown中写代码,只有通过MouseDown事件的,才执行OnChange中的代码!^_^
      

  2.   

    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过************
    * 努力学习 *
    *   全为   *
    *¥人民币¥*
    ************