怎样使鼠标右键按下时,鼠标的形状改变,直到放开?
我做拖动时有用。

解决方案 »

  1.   

    在MOUSEDOWN中判是否为RBUTTONDOWN?是则设置CURSOR,在MOUSEUP中也同样处理!
      

  2.   

    这是我写的代码,看一看:procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    begin
      if Button=  mbRight then
        self.Cursor:= crCross;
    end;procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    begin
      if Button = mbRight then
        self.Cursor:= crdefault;
    end;
      

  3.   

    楼上,我的代码有什么问题?鼠标不变procedure TForm1.Memo1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    begin
       if Button=  mbRight then
        self.Cursor:= crhandpoint;
    end;procedure TForm1.Memo1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    begin
       if Button = mbRight then
        self.Cursor:= crdefault;
    end;
      

  4.   

    你不用怎样做,凡支持拖拉的组件都有个dragicon的属性,你看看吧
    可能我说的dragicon属性书写有错
      

  5.   

    比如把一个ListBox的ITEM拖放到另一个ListBox的ITEM里,要怎样体现的变化?都用到哪些控件?
      

  6.   

    写错了,应该是以下:   比如把一个ListBox的ITEM拖放到另一个ListBox的ITEM里,要怎样体现鼠标的变化?都用到哪些事件?