delphi鼠标拖动所画直线

Question

如题，我是delphi小菜鸟，希望高手指点一下！！感激不尽……

Answer 1

http://www.cnblogs.com/del/archive/2008/02/09/1066300.html

Answer 2

我是在canvas上画的，这样会不会闪动太大呢？我想的是用dragover dragdrop,你说具体点好不好？
我不是很明白，用onpaint吗？多谢啦

Answer 3

Bevel1控件 shape = bsBottomLine
鼠标移动改变 left top

Answer 4

以下代码是 grid 拖拽列宽时 vcl 中实现绘制的拖动线的代码，你可以参照一下 with Canvas, DrawInfo do
    begin
      OldPen.Assign(Pen);
      Pen.Style := psDot;
      Pen.Mode := pmXor;
      Pen.Width := 1;
      try
        if FGridState = gsRowSizing then
        begin
          if UseRightToLeftAlignment then 
          begin
            MoveTo(Horz.GridExtent, FSizingPos); 
            LineTo(Horz.GridExtent - Horz.GridBoundary, FSizingPos); 
          end
          else
          begin
            MoveTo(0, FSizingPos);
            LineTo(Horz.GridBoundary, FSizingPos);
          end;
        end
        else
        begin
          MoveTo(FSizingPos, 0);
          LineTo(FSizingPos, Vert.GridBoundary);
        end;
      finally
        Pen := OldPen;
      end;
    end;

Answer 5

Delphi7\Demos\Doc\Graphex
可以看看delphi自带的例子里面有