delphi中怎么用键盘方向键来移动label控件

 我来答 举报
veket的小号
2013-09-04 · TA获得超过3371个赞
知道大有可为答主
回答量:3762
采纳率:0%
帮助的人:3995万
展开全部

设计时 选中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 ........
sirouszlh
2013-09-05 · TA获得超过1651个赞
知道小有建树答主
回答量:1038
采纳率:100%
帮助的人:645万
展开全部
首先 定义个全局变量
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,则不行
本回答被网友采纳
抢首赞 已赞过 已踩过<
你对这个回答的评价是?
评论 举报 收起
ruanping1976
2013-09-05
知道答主
回答量:7
采纳率:0%
帮助的人:4万
展开全部
是在开发环境是移动吗?
抢首赞 已赞过 已踩过<
你对这个回答的评价是?
评论 举报 收起
收起 1条折叠回答
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式