ACómo bloquear las teclas de función del sistema
A veces no queremos que el usuario interrumpa el programa usando Alt + Tab, Ctrl + Alt + Supr, Ctrl + Esc y otras teclas de función del sistema (como programas de demostración automática), entonces, ¿qué debemos hacer? Permítame recordarle que estas teclas de función están inactivas cuando se ejecuta el protector de pantalla; es decir, mientras su programa se esté ejecutando, puede "engañar" a Windows para que piense que el estado de protección ya está en su pantalla. ! Por favor mire el siguiente código:
var
temperatura: número entero;
comenzar
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, @temp, 0);
fin;
Por supuesto, no olvide restaurar la configuración y "reactivar" Windows al final del programa. El código es el siguiente:
var
temperatura: número entero;
comenzar
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0, @temp, 0);
fin;
BCómo activar ramas
La mayoría de los controles en Delphi tienen una práctica propiedad Sugerencia, que es una barra flotante. Pero a veces el mensaje es largo. ¿Se puede mostrar la barra de mensajes flotante en líneas separadas? De hecho, Hint es una cadena, por lo que Delphi interpretará automáticamente el carácter de control de retorno de carro cuando muestre la cadena, así que simplemente agregue el carácter de control de retorno de carro. Según este principio, también podemos crear una barra de mensajes vertical única. Primero organice una etiqueta en form1 y luego mire el código de muestra:
Procedimiento TForm1.FormCreate(Remitente: TObject);
comenzar etiqueta1.Sugerencia: = 'vertical' + #13 + 'recto' + #13 + 'ti' + #13 + 'mostrar';
fin;
CCómo mostrar imágenes en el menú
¿Has utilizado Office97? ¿Le resulta refrescante mostrar iconos en los menús? Si desea que su programa sea la guinda del pastel, ¡prepare bmp lo antes posible!
Suponga que planea agregar un ícono de impresora (el nombre del archivo es c:/inter.bmp) al noveno elemento (el número de serie se cambia a 8) "Imprimir" en la barra de menú "Archivo" (el nombre es n1), luego siempre que el OnCreate del formulario El evento esté escrito así:
var
Bmp: TImagen;
comenzar
Bmp := TPicture.Create;
Bmp.LoadFromFile(′c:/impresora.bmp′);
SetMenuItemBitmaps(n1.Handle,8, MF_BYPOSITION,Bmp.Bitmap.Handle, Bmp.Bitmap.Handle);
fin;
Entre ellos, el primer bitmap.handle se usa para elementos de menú no seleccionados (sin marcar) y el segundo especifica el mapa de bits que se muestra cuando se selecciona (marcado). Pueden ser iguales o diferentes. Además, dado que la altura de los elementos del menú es limitada, si el mapa de bits es demasiado grande, sólo se mostrará la esquina superior izquierda. (Shanghái Wang Zhen)