展开全部
设计时 选中label 按ctrl+方向键
运行时 给你个bcb代码
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 | void __fastcall TForm1::FormKeyDown(TObject *Sender, WORD &Key, TShiftState Shift) { switch (Key) { case VK_LEFT: Label1->Left--; break ; case VK_RIGHT: Label1->Left++; break ; case VK_UP: Label1->Top--; break ; case VK_DOWN: Label1->Top++; break ; } } |
更多追问追答
追问
好像不行
追答
说了是c++builder,自己去转delphi
不就是个select case ........
展开全部
首先 定义个全局变量
L1:Tlabel;
在你需要的每个Label的 onclick事件里
写
L1:=Tlabel(Sender);
在 form的 onKeyDown里写法和楼上类似
case Key of
VK_LEFT:
begin
L1.Left:=L1.Left-1;
end;
VK_RIGHT:
begin
L1.Left:=L1.Left+1;
end;
VK_UP:
begin
L1.Top:=L1.Top-1;
end;
VK_DOWN:
begin
L1.Top:=L1.Top+1;
end;
end;
执行 点Label A 然后按方向键就可以移动A
点Label B 然后按方向键就可以移动B
L1:Tlabel;
在你需要的每个Label的 onclick事件里
写
L1:=Tlabel(Sender);
在 form的 onKeyDown里写法和楼上类似
case Key of
VK_LEFT:
begin
L1.Left:=L1.Left-1;
end;
VK_RIGHT:
begin
L1.Left:=L1.Left+1;
end;
VK_UP:
begin
L1.Top:=L1.Top-1;
end;
VK_DOWN:
begin
L1.Top:=L1.Top+1;
end;
end;
执行 点Label A 然后按方向键就可以移动A
点Label B 然后按方向键就可以移动B
追问
如果form里面有其他控件比如button,则不行
本回答被网友采纳
展开全部
是在开发环境是移动吗?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询