Création d'un raccourci d'application Delphi sans élément de menu correspondant
Question
Je souhaite avoir une combinaison de touches de raccourci (comme Ctrl+Alt+D) dans mon application pour appeler une fonction, mais je ne veux pas que le raccourci apparaisse dans un menu.Est-il possible d'avoir un raccourci disponible dans votre application qui serait autrement invisible ?
La solution
vous pouvez utiliser le OnShortCut
événement de la TApplicationEvents
élément de cette tâche
vérifie ce code
procedure TForm1.ApplicationEvents1ShortCut(var Msg: TWMKey;
var Handled: Boolean);
begin
if (Msg.CharCode = Ord('D')) and (HiWord(Msg.KeyData) and KF_ALTDOWN <> 0) and (GetKeyState(VK_CONTROL) < 0) then
begin
ShowMessage('Ctrl+Alt+D Pressed') ;
Handled := true;
end;
end;
Autres conseils
Oui, c'est possible.Vous devez ajouter un objet de tact de classe à votre formulaire. Vous pouvez spécifier un raccourci clavier pour la taction, puis mettre votre code en événement OneXecute of the Taction.
Notez que vous ne pouvez pas ajouter de taction directement à votre formulaire, vous devez mettre une licence de tactone sur votre formulaire, puis vous pouvez ajouter une tacte à votre tictlist.