anchor.diff:      FOnResponseDefaultKey(Self, wParam, AResult);
   end;
   
  +
  +
   end.
  
positive.code:   begin
      FDuiComponent := TDuiComponent.Create(FSkinXml, FSkinFolder, FSkinZip, FSkinResName, TResourceType(FSkinKind));
      FDuiComponent.OnHandleCustomMessage := FOnHandleCustomMessage;
      FDuiComponent.OnNotify := FOnNotify;
      FDuiComponent.OnFinalMessage := FOnFinalMessage;
      FDuiComponent.OnMessageHandler := FOnMessageHandler;
      FDuiComponent.OnCreateControl := FOnCreateControl;
  
negative.code:     if Assigned(FOldWndProc) then
        FForm.WindowProc := FOldWndProc;
    end;
    ClearEvents;
    FObjectEvents.Free;
    inherited;
  end;
  
  procedure TDDuiForm.DuiNotifyEvent(Sender: TObject; var Msg: TNotifyUI);
  var
    LItem: TDuiObjecItem;
  {$IFNDEF SupportGeneric}
    I: Integer;
  {$ENDIF}
    LHandled: Boolean;
  begin
    LHandled := False;
  {$IFDEF SupportGeneric}
    if FObjectEvents.TryGetValue(Msg.pSender.Name, LItem) then
    begin
      if LItem.EventType = Msg.sType then
        LItem.Event(Msg, LHandled);
    end;
  {$ELSE}
    I := IndexOfObjEvent(Msg.pSender.Name);
    if I <> -1 then
    begin
      LItem := PDuiObjecItem(FObjectEvents[I])^;
      if LItem.EventType = Msg.sType then
        LItem.Event(Msg, LHandled);
    end;
  {$ENDIF}
    if LHandled then Exit;
    if Assigned(FOnNotify) then
      FOnNotify(Sender, Msg);
  end;
  
  procedure TDDuiForm.InitDuiComponent;
  