如何移动label控件(100分)

  • 主题发起人 夜之紫瞳
  • 开始时间

夜之紫瞳

Unregistered / Unconfirmed
GUEST, unregistred user!
为什么Edit控件能移动,label不能呢,都是同属于TControl类的啊。
还有,移动控件后,我想把各个控件的位置保存起来,本来是把各个控件的位置保存在文件里,请问还有没有更简单的方法啊?谢谢了
 
改变label的left应该可以移动它的。

有。它们的属性记录在注册表里!
 
不用这么恐怖吧,写到注册表中?
写个ini就够了
 
你把label放在panel上移动panel不就行了,
或者干脆用panel代替label。
 
不好意思,忘说了一句话,就是在运行时移动象label和Edit之类的控件,然后把这个窗体保存起来。以后打开时,这个窗体上的控件就是移动后的位置了。
 
这个应该不难啊!Label怎么会不能移动呢?改变其Left、Top属性不就OK了?
至于保存其位置,我建议用ini文件,非常简单,又方便,而且很环保(如果用注册表就会
对系统产生影响)!:)
 
就是,就是,reg&ini,left &top,结吧,给点分
 
因为edit 继承一个Twincontrol ,它本身就是一个窗体
而label 不是
 
我现在是用这样移动的
procedure TForm1.Label1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
dx:=x;
dy:=y;
end;

procedure TForm1.Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if (ssleft in shift) then
begin
label1.Top:=Label1.Top+y-dy;
label1.Left:=label1.Left+x-dx;
end;
end;
有没有更简单的啊?
给我一个保存窗体的实例吧,谢谢大家了
 
rx控件包里有个控件就是保存窗体及控件的状态的。
 
pnljh,那个控件包在哪儿有下的呢?
 
看这个帖子:
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1140450
 
好久没来了,来个新问题,为什么ComboBox也不能移动呢?
 
对啊, 为什么ComboBox不能移动它没有MouseMove, MouseDown, MouseUp事件。
要如何解决?
 
这是很早以前的帖子了,我现在已经解决了,谢谢大家参与
 
多人接受答案了。
 
顶部