目的是希望按下向阳花上键时,焦点移到前一个对象上去.谢谢关注!
以下是在自己创建的组建Tedit1=class(Tedit)中:procedure TEdit1.KeyDown(var Key: Word; Shift: TShiftState);
begin
if Key=VK_UP then //按向上键
begin
showmessage('按了向上键'); //成功
PostMessage(Handle,WM_KEYDOWN,VK_SHIFT+VK_TAB,0); //不成功
Key := 0;
end;
inherited;
end;
以下是在自己创建的组建Tedit1=class(Tedit)中:procedure TEdit1.KeyDown(var Key: Word; Shift: TShiftState);
begin
if Key=VK_UP then //按向上键
begin
showmessage('按了向上键'); //成功
PostMessage(Handle,WM_KEYDOWN,VK_SHIFT+VK_TAB,0); //不成功
Key := 0;
end;
inherited;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货