1. 你应该先找出来 当前符合条件的所有Edit 2. 进行移动 我有个想法: 每次点击个Edit 你把Edit的Tag属性改为1 或 任意一个 不过所有选中的Edit 的tag 都要一致用空间匹配方法来查找当前选中的所有空间 var i:integer; begin for i:=0 to self.Components.count do begin if Components[i] is TEdit then begin if TEdit(Componets[i]).Tag=1 then //是选中的空间 记录下来 //调用你的一个控件移动程序 end; end; end; //是手写的代码 希望给你有所帮助!
按住其中一个,就能全部移动
你也可以用Ctrl加方向键移动
2.选中后,按着Ctrl+方向键即可,就是慢点,每次移动大概5像素的样子。
改变大小:选中后,按着shift+方向键即可。
看来来晚了...
是不能框选的
2. 进行移动 我有个想法: 每次点击个Edit 你把Edit的Tag属性改为1 或 任意一个 不过所有选中的Edit 的tag 都要一致用空间匹配方法来查找当前选中的所有空间
var
i:integer;
begin
for i:=0 to self.Components.count do
begin
if Components[i] is TEdit then
begin
if TEdit(Componets[i]).Tag=1 then
//是选中的空间 记录下来
//调用你的一个控件移动程序
end;
end;
end; //是手写的代码 希望给你有所帮助!
有没有高手做过这样的东东?