procedure Tmis1f.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if ((shift=[ssALT])and(key=$4E) then...//Alt+N
if ((shift=[ssCtrl])and(key=$4E) then...//Ctrl+N
if ((shift=[ssShift])and(key=$4E) then...//Shift+N
end[@more@]
Shift: TShiftState);
begin
if ((shift=[ssALT])and(key=$4E) then...//Alt+N
if ((shift=[ssCtrl])and(key=$4E) then...//Ctrl+N
if ((shift=[ssShift])and(key=$4E) then...//Shift+N
end[@more@]
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/74753/viewspace-999942/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/74753/viewspace-999942/