用delphi作平面图的问题

我刚开始学习delphi，想做一个下面的东西，请大家帮帮忙吧，要是有源码就更好了，在此先谢谢了。
1.在一个平面内，根据简易的坐标画几个填充了不同颜色的方块，每个方块有自己的名字
2.当光标移至方块上时提示方块的名字
真的很着急，在线等

解决方案 »

  1.   

    你试试在指定的位置里动态创建TShape，去掉边框，调整颜色，Hint属性里设置方块的名字，鼠标移上去就有提示，这样应该可以。
      

  2.   

    鼠标位置 Mouse.CursorPos.X, Mouse.CursorPos.Y
    范围 TRect
    或者几个坐标的集合（x1, y1, x2, y2, x3, y3）写一个函数 AreaName(CursorPos: TCursorPos; Rect: TRect): string;
    在方块中，返回方块名称，如果不在方块中，返回空
      

  3.   

    各位不好意思，我刚开始学习delphi，有谁能提供一段代码吗
      

  4.   

    代码参看另一贴：
    http://community.csdn.net/Expert/topic/4790/4790301.xml?temp=.6685144