请问如何使文本框在程序运行时可以拖动？
请问如何使文本框在程序运行时可以拖动？ 问题点数：50、回复次数：13Top
1 楼lxl（是我,不是风）回复于 2002-08-05 23:35:01 得分 0
呵呵，又是你啊，
这样设置属性后就可以拖动了
dragmode:=dmAutomatic;
dragkind:=dkDock;Top
2 楼lxlsky（lxl）回复于 2002-08-06 00:04:25 得分 0
不行呀！！我试过了edit和lable都不行！！Top
3 楼ollea（一定要mf到胡萝卜）回复于 2002-08-06 00:04:50 得分 30
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键时，可以拖动
Top
4 楼ehom（？！）回复于 2002-08-06 00:11:09 得分 0
还有停泊区所在控件的DockSite:=True;,否则会被拖出来成为窗体!
Top
5 楼lxlsky（lxl）回复于 2002-08-06 23:25:42 得分 0
多谢两位指点，方法确实有效！！
但只对edit 和richedit有效！对image和label不起作用！
在image和label中dragkind设成dkdock可以拖成窗体，但设成dkdrag这不行！（对这两个控件，我将代码的“(Sender as TEdit).”部分作了修改，其中“TEdit”该为相应的“Timage”和"Tlabel"，其他未作修改）！Top
6 楼ehom（？！）回复于 2002-08-07 00:37:27 得分 0
TIMAGE和TLABEL是从TGraphicControl继承的,要从TWinControl继承才行!
Top
7 楼madyak（无天）回复于 2002-08-07 00:51:04 得分 0
在窗体上放一TControlBar控件,将文本框放在TControlBar控件上!Top
8 楼lxlsky（lxl）回复于 2002-08-10 14:10:21 得分 0
请问该如何拖动TIMAGE和TLABEL？Top
9 楼simonzone（马叉虫）回复于 2002-08-10 14:33:49 得分 0
gzTop
10 楼langer（MSN:xiaoxzs@163.com）回复于 2002-08-10 14:54:28 得分 0
不懂！VB里倒做个一个Top
11 楼ehom（？！）回复于 2002-08-10 15:06:07 得分 20
咳，还没明白吗？将TIMAGE和TLABEL放到一从TWinControl继承的容器控件上！如PANEL，拖动PANEL，上面的IMAGE和LABEL不就动了吗？Top
12 楼uwslxcs2（野狼）回复于 2002-08-10 15:13:30 得分 0
试试其他控件Top
13 楼lxlsky（lxl）回复于 2002-08-10 21:36:24 得分 0
多谢指教！！！Top
相关问题
- 如何在程序运行时动态创建文本框
- 如何使程序具有记忆功能？比如：在程序运行时我让一个已经设置好的本来不可见的文本框为可见，用什么办法使程序下一次运行时文本框继续可见？
- 运行时弹出一个窗体，在窗体中有一个文本框和一个按钮，按此按钮后，文本框显示“你好！！”。请给出VC实现以上功能的详细步骤及程序。谢谢！
- [很难的问题]在窗体上放一个文本框，然后运行程序，在文本框里右击，会出现一个粘贴的菜单，如何把这个菜单去掉？
- ？？？如何拖动文本框和复选框？？？
- 为什么运行时文本框中不能输入中文？？？
- 怎样在运行时设置文本框焦点？
- 知道另一程序中文本框的句柄（hWnd)，如何得到该文本框的内容？
- 请教如何将程序文本框中的文本拖放到网页文本框中，来者有分
- form下的文本框能像word那样，拖动选中的文本吗？
