模拟TAB键 (2013/6/7 22:35:29)
SelectNext(ActiveControl,True,True);
屏蔽Alt+F4关闭键 (2013/6/7 22:35:39)
启动某些程序,使用Alt+F4键,可以快速的退出程序,可是如果是做一个屏幕保护程序的话,那么这个方便将成为绊脚石,所以有必要令该功能键失去作用,所以我们使用了窗体的OnKeyDown事件来检测击键:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);
begin
if (ssAlt in shift) and (key=115) then
key:=0;
end;
时间: 2024-10-08 00:21:28