delphi2007 教程

计算好目标窗口的坐标，然后把该窗口置为前台，再用类似下面这样的代码试试：  
  mouse_event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);  
  mouse_event(MOUSEEVENTF_LEFTUP,0,0,0,0);

楼上的方法偶试过,但一直没有成功.  
  测试情况是wm_lbuttondown,   wm_mousemove,wm_lbuttonup消息都捕获了  
  (坐标是没有问题的.)  
  就是没有实现拖动列的效果.  
  偶是在DELPHI下试的.  
   
 

function   MouseToScreen(mVertical:   Boolean;   mMouse:   Integer):   Integer;  
  begin  
      case   mVertical   of  
          False:   Result   :=   Round(mMouse   *   (MAXWORD   /   Screen.Width));  
      else   Result   :=   Round(mMouse   *   (MAXWORD   /   Screen.Height));  
      end;  
  end;  
   
  procedure   TForm1.Button1Click(Sender:   TObject);  
  var  
      vPoint:   TPoint;  
  begin  
      vPoint   :=   Panel1.ClientToScreen(Point(1,   1));  
      mouse_event(MOUSEEVENTF_ABSOLUTE   or   MOUSEEVENTF_MOVE,  
          MouseToScreen(False,   vPoint.X),   MouseToScreen(True,   vPoint.Y),   0,   0);  
      mouse_event(MOUSEEVENTF_ABSOLUTE   or   MOUSEEVENTF_LEFTDOWN,  
          MouseToScreen(False,   vPoint.X),   MouseToScreen(True,   vPoint.Y),   0,   0);  
      Dec(vPoint.X,   200);  
      Dec(vPoint.Y,   200);  
      mouse_event(MOUSEEVENTF_ABSOLUTE   or   MOUSEEVENTF_MOVE,  
          MouseToScreen(False,   vPoint.X),   MouseToScreen(True,   vPoint.Y),   0,   0);  
      mouse_event(MOUSEEVENTF_ABSOLUTE   or   MOUSEEVENTF_LEFTUP,  
          MouseToScreen(False,   vPoint.X),   MouseToScreen(True,   vPoint.Y),   0,   0);  
  end;  
   
  procedure   TForm1.FormCreate(Sender:   TObject);  
  begin  
      Panel1.DragKind   :=   dkDock;  
      Panel1.DragMode   :=   dmAutomatic;  
  end;  
 

TO   楼上:  
  非常感谢!  
  可是对TStringGrid列的拖动还是不行.