怎样用delphi控件制作甘特图

我想用TStringGrid和动态产生TPanel控件来实现，请问高手有没有好的方法，谢谢

解决方案 »

  1.   

    因为要在生产管理项目里面要用，比如生产计划。ms project 虽然很好但用不上
      

  2.   

    在StringGrid.OnDrawCell中定義自畫事件,根據Cells中的數據對圖形進行處理.
      

  3.   

    但是里面画出的图形无法响应事件，比如我要求用Mouse移动，并记录下数值
      

  4.   

    自己继承一个有Canvas的控件，然后自己画。
    比如：TPaintBox 或者 TCustomControl
      

  5.   

    然后重载MouseDown, MouseMove, MouseUp
    从TCustomControl还可以处理键盘事件.