anchor.diff:  procedure TListMainForm.DoNotify(var Msg: TNotifyUI);
   var
     LType, LCtlName: string;
  +  iIndex: Integer;
  +  pList: CListUI;
   begin
     inherited;
     LType := Msg.sType;
  
positive.code:   FSearch.Enabled := True;
  end;
  
  
  
  var
  
negative.code:     destructor Destroy; override;
    end;
  
      // һ򵥵Ĳ˵ɿduiliblistDemoһ˵
    TDuiPopupMenu = class(TDuiWindowImplBase)
    private
      FListUI: CListUI;
    protected
      procedure DoNotify(var Msg: TNotifyUI); override;
      procedure DoHandleMessage(var Msg: TMessage); override;
      procedure DoFinalMessage(hWd: HWND); override;
      procedure DoInitWindow; override;
    public
      constructor Create(AListUI: CListUI);
    end;
  
  
  { TListMainForm }
  
  constructor TListMainForm.Create;
  