设计时如何响应鼠标左键？

Question

   最近做一个类似PageControl的控件，不知道如何在设计时响应鼠标左键, 实现像PageControl控件那样点击tab就能切换到相应的Page页？请教一下各位大虾。

Answer 1

可能要用到IOTA接口的东西，具体不是很熟悉

Answer 2

void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{
  if(Button==0);//左键
  else ；//右键
}

Answer 3

void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button, 
      TShiftState Shift, int X, int Y) 
{ 
  if(Button==0);//左键 
  else ；//右键 
}这样写的话用到PageControl控件的地方都得这么写

Answer 4

还是先看看TPageControl的源码吧，TPageControl每加一个页面都增加一个sheet对象。