变通一下就可以了
procedure mm(var Msg: TMsg; var Handled: Boolean);
begin
if Msg.Message = WM_KEYDOWN then
if Msg.wParam = VK_LEFT then //VK_UP;VK_RIGHT;VK_DOWN
{ 焦点移到左边的BUTTON }
end;OnCreate中添加
Application.OnMessage := mm;
procedure mm(var Msg: TMsg; var Handled: Boolean);
begin
if Msg.Message = WM_KEYDOWN then
if Msg.wParam = VK_LEFT then //VK_UP;VK_RIGHT;VK_DOWN
{ 焦点移到左边的BUTTON }
end;OnCreate中添加
Application.OnMessage := mm;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货