学步园

cocos的容器 怎么有一种 VCL的感觉.

来看init()中的一段代码

   // Create a "close" menu item with close icon, it's an auto release object.
        CCMenuItemImage *pCloseItem = CCMenuItemImage::create(
            "CloseNormal.png",
            "CloseSelected.png",
            this,
            menu_selector(HelloWorld::menuCloseCallback));

这不是PASCAL么.  坑爹啊

var
  pCloseItem : TCMenuItemImage 
begin
    pCloseItem := TCMenuItemImage.create(
            'CloseNormal.png',
            'CloseSelected.png',
            Self,
            menu_selector(HelloWorld.menuCloseCallback));  

//==================华丽的分割线========================

 this->addChild(pSprite, 0, 2);   // 给"控件" 设置爸爸, 第三个参数是Tag

如果换成delphi版应该是这样

pSprite.Parent := self;
pSprite.Tag := 2;

我们在定时器里面调用它, 并且图片开始旋转

void HelloWorld::myOnTimer(float fInterval)
{
	CCSprite* pSprite = (CCSprite*)(this->getChildByTag(2));  // 这个2 就是上面设置的第三个参数
	float f1 = pSprite->getRotation();
	pSprite->setRotation( f1 + 1.0 );
}