模拟TAB键 – 源码巴士

模拟TAB键 (2013/6/7 22:35:29)

SelectNext(ActiveControl,True,True);

启动某些程序，使用Alt+F4键，可以快速的退出程序，可是如果是做一个屏幕保护程序的话，那么这个方便将成为绊脚石，所以有必要令该功能键失去作用，所以我们使用了窗体的OnKeyDown事件来检测击键：

procedureTForm1.FormKeyDown(Sender: TObject;varKey: Word;Shift: TShiftState);
begin
    if(ssAltinshift)and(key=115)then 
        key:=0;
end;

转载于:https://www.cnblogs.com/xe2011/p/3876122.html