希望集思广益求得一个功能模块的实现方法解决方法

希望集思广益求得一个功能模块的实现方法
希望集思广益求得一个功能模块的实现方法解决方法
如上图,有10个Bar,希望实现这样的功能:1、点击其中一个,产生图中最右侧Bar的被选择效果;2、在这个Bar中继续点击,绿色部分顶端到达点击的位置处;
其中应该牵涉到检测鼠标在图形中的相对位置吧,之前没有接触过,希望诸位大神指点
------解决思路----------------------
第二条功能,可以这么实现

//---------------------------------------------------------------------------
void __fastcall TForm1::ProgressBar2MouseUp(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
   ProgressBar2->Position=(ProgressBar2->Height-Y)/(float(ProgressBar2->Height/ProgressBar2->Max));
}
//---------------------------------------------------------------------------