传递焦点API实现
时间：2011-03-24 来源：ManLoveGirls
procedure TUserLoginForm.NextControl(Key: Char);
begin
if Key = #13 then
begin
SendMessage(self.Handle,WM_NEXTDLGCTL,0,0); //下一个焦点
end;
end;
相关阅读 更多 +
排行榜 更多 +
时间：2011-03-24 来源：ManLoveGirls
procedure TUserLoginForm.NextControl(Key: Char);
begin
if Key = #13 then
begin
SendMessage(self.Handle,WM_NEXTDLGCTL,0,0); //下一个焦点
end;
end;
