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
时间: 2024-10-06 08:50:26