在Delphi 里面的三个基本的鼠标操作事件是
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Single);
begin
end;
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Single);
begin
end;
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Single);
begin
end;
再 cocos里面其实也是差不多的
首先重写 Layer的 onEnter函数
//HelloWorldScene.h
virtual void onEnter() override;
然后在onEnter里面绑定事件
void THelloWorld::onEnter()
{
TLayer::onEnter();
// 创建一个监听事件
auto listener = TEventListenerTouch::create(dmOneByOne);
//如果不加入此句消息依旧会向下传递
listener->setSwallowTouches(true);
// 绑定事件
listener->onTouchBegan = CC_CALLBACK_2(THelloWorld::onTouchBegan, this);
listener->onTo