AComment bloquer les touches de fonction du système
Parfois, nous ne voulons pas que le programme soit interrompu par l'utilisateur en utilisant Alt+Tab, Ctrl+Alt+Del, Ctrl+Esc et d'autres touches de fonction système (telles que les programmes de démonstration automatiques), alors que devons-nous faire ? Permettez-moi de vous rappeler que ces touches de fonction sont inactives lors de l'exécution de l'économiseur d'écran - c'est-à-dire que tant que votre programme est en cours d'exécution, vous pouvez "tromper" Windows pour qu'il pense qu'il est à l'écran. L'état de protection est désormais en place. ! Veuillez regarder le code suivant :
var
temp : entier ;
commencer
SystemParametersInfo (SPI_SCREENSAVERRUNNING, 1, @temp, 0);
fin;
Bien entendu, n'oubliez pas de restaurer les paramètres et de « réveiller » Windows à la fin du programme. Le code est le suivant :
var
temp : entier ;
commencer
SystemParametersInfo (SPI_SCREENSAVERRUNNING, 0, @temp, 0);
fin;
BComment inviter les branches
La plupart des contrôles dans Delphi ont une propriété Hint pratique, qui est une invite de barre flottante. Mais parfois, l'invite est longue. La barre d'invite flottante peut-elle être affichée sur des lignes séparées ? En fait, Hint est une chaîne, donc Delphi interprétera automatiquement le caractère de contrôle de retour chariot lors de l'affichage de la chaîne, il suffit donc d'ajouter le caractère de contrôle de retour chariot. Sur la base de ce principe, nous pouvons également créer une barre d'invite verticale unique. Veuillez d'abord organiser une étiquette dans form1, puis regardez l'exemple de code :
PRocédure TForm1.FormCreate(Expéditeur : TObject);
commencer label1.Hint := 'vertical' + #13 + 'droit' + #13 + 'ti' + #13 + 'show';
fin;
CComment afficher les images dans le menu
Avez-vous utilisé Office97 ? Trouvez-vous rafraîchissant d’afficher des icônes dans les menus ? Si vous voulez que votre programme soit la cerise sur le gâteau, préparez bmp le plus tôt possible !
Supposons que vous envisagez d'ajouter une icône d'imprimante (le nom du fichier est c:/inter.bmp) au 9ème élément (le numéro de série est remplacé par 8) "Imprimer" sous la barre de menu "Fichier" (le nom est n1), puis tant que le formulaire OnCreate L'événement est écrit comme ceci :
var
Bmp : TPimage ;
commencer
Bmp := TPicture.Create;
Bmp.LoadFromFile(′c:/printer.bmp′);
SetMenuItemBitmaps(n1.Handle,8, MF_BYPOSITION,Bmp.Bitmap.Handle, Bmp.Bitmap.Handle);
fin;
Parmi eux, le premier bitmap.handle est utilisé pour les éléments de menu non sélectionnés (non cochés), et le second spécifie le bitmap affiché lorsqu'il est sélectionné (coché). Ils peuvent être identiques ou différents. De plus, comme la hauteur des éléments de menu est limitée, si le bitmap est trop grand, seul le coin supérieur gauche sera affiché. (Shanghai Wang Zhen)