请问如何使文本框在程序运行时可以拖动？

呵呵，又是你啊，
这样设置属性后就可以拖动了
dragmode:=dmAutomatic;
dragkind:=dkDock;

解决方案 »

  1.   

    不行呀！！我试过了edit和lable都不行！！
      

  2.   

    procedure TForm1.Edit1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    begin
      if ssLeft in Shift then
      begin
        ReleaseCapture;
        (Sender as TEdit).Perform(WM_SYSCOMMAND, $F012, 0);
      end;
    end;
    当按下shift键时，可以拖动
      

  3.   

    还有停泊区所在控件的DockSite:=True;,否则会被拖出来成为窗体!
      

  4.   

    多谢两位指点，方法确实有效！！
    但只对edit 和richedit有效！对image和label不起作用！
    在image和label中dragkind设成dkdock可以拖成窗体，但设成dkdrag这不行！（对这两个控件，我将代码的“(Sender as TEdit).”部分作了修改，其中“TEdit”该为相应的“Timage”和"Tlabel"，其他未作修改）！
      

  5.   

    TIMAGE和TLABEL是从TGraphicControl继承的,要从TWinControl继承才行!
      

  6.   

    在窗体上放一TControlBar控件,将文本框放在TControlBar控件上!
      

  7.   

    请问该如何拖动TIMAGE和TLABEL？
      

  8.   

    咳，还没明白吗？将TIMAGE和TLABEL放到一从TWinControl继承的容器控件上！如PANEL，拖动PANEL，上面的IMAGE和LABEL不就动了吗？