Como nuevo lenguaje de programación de Windows, Delphi es cada vez más preferido por programadores y entusiastas debido a sus excelentes características. Los siguientes diez consejos cubren una amplia gama de temas y espero que sean de beneficio para los entusiastas de Delphi.
1. Similar a vb. ¿Funcionan los eventos?
Es posible que descubra que no existe un equivalente a vb en Delphi. doevents funciona, por lo que en ocasiones no podremos hacer que Windows responda a múltiples eventos simultáneos. De hecho, el objeto de aplicación de Delphi incluye un método similar: PRocessMessage Puede llamar a la aplicación. ProcessMessage para completar como vb. La misma funcionalidad que doevents en .
2. Llame a NetscapeNavigator en Delphi.
Con la popularidad de Internet, ¿alguna vez ha pensado en iniciar el navegador Netscape en su programa Delphi y mostrar la página de inicio de la dirección WWW que especifique? El siguiente programa puede realizar esta función.
programaNetscape;
utilizaDDEMan;
procedimientoGo??toURL(sURL: cadena);
var
dde:TDDEClientConv;
comenzar
dde:=TDDEClientConv. Crear(nulo);
retirado
comenzar
//especificarlaubicacióndenetscape． exe
Aplicación de servicio:=′c: s32program etscape． exe';
//activar el NetscapeNavigator
SetLink('Netscape', 'WWW-Activar');
RequestData(′0xFFFFFFFF′);
//ir a la URL especificada
SetLink('Netscape', 'WWW-OpenURL');
RequestData(sURL+′,,0xFFFFFFFF,0x3,,,′);
CerrarEnlace;
fin;
dde. Gratis;
fin;
comenzar
Ir a URL(′http://www.yahoo.com/′);
fin.
3. Salida entera formateada.
Los números relativamente grandes parecerán difíciles de leer cuando se generen. Es bastante sencillo mostrar números con marcas de sección en Delphi, de la siguiente manera: xxxxx. título: ΚFormatFloat(′#′, 524667500).
4. Obtenga sugerencias en tiempo de compilación.
En Delphi2.0, al compilar, puede pedirle al compilador que le dé algunas sugerencias, como qué variables se declaran pero nunca se usan. Sabemos que puede controlar si desea que Delphi haga esto a través de las opciones del menú, pero ¿qué pasa si, debido a algunas necesidades especiales, solo necesita que Delphi le indique un segmento de código específico? Consulte los siguientes procedimientos.
{$HINTON}
procedimientoTform1． Botón1Clic(Remitente: TObject);
var
X: número entero;
comenzar
fin;
{$PISTA}
5. Cambiar el fondo de pantalla de Windows95.
Puede cambiar el fondo de pantalla fácilmente en Delphi; consulte el siguiente procedimiento.
procedimientoCambiarlo;
var
Reg:TregIniFile;
comenzar
Registro: ΚTRegIniFile. Crear('Panel de control')
;
Reg. WriteString('escritorio', 'Fondo de pantalla',
'c:pwin95forest. bmp');
Reg. WriteString('escritorio', 'TileWallpaper
′,′1′);
Reg. Gratis;
Información de parámetros del sistema (SPI-SETDESKWALLPAPER, 0
, nulo, SPIF-SENDWININICHANGE);
fin;
6． Obtenga la fecha en que se utilizó el archivo por última vez.
Hay una nueva función en Win95, que consiste en obtener la última fecha de acceso al archivo. El famoso software CleanSweapforWin95 se basa en esta función como una de las bases para juzgar si se accede con frecuencia a un archivo. En Delphi, podemos lograr esta función a través del siguiente programa.
functionGetFileLastaccessTime(sFileName:string):TDate??Hora;
var
ffd:TWin32FindData;
dft:DPalabra;
lft:TFileTime;
h: TMango;
comenzar
//obtener información del archivo
h：ΚWindows． FindFirstFile(PChar(sFileName), ffd);
si（INVALID―HANDLE―VALUEΙΛh）entonces
comenzar
//estamos buscandosolounarchivo,socloSENuestro"buscar"
Ventanas. BuscarCerrar(h);
//convierte el FILETIME en local FILETIME
FileTimeToLocalFileTime(ffd.ftLastAccessTime, lft);
//convertirFILETIMEaDOStime
FileTimeToDosDateTime(lft,LongRec(dft).Hola,LongRec(dft).Lo);
//finalmente, convierte la hora de DOS en TDateTime para usarla en las funciones nativas de fecha/hora de Delphi
Resultado: ΚFileDateToDateTime(dft);
fin;
fin;
GetFileLastAccessTime() devolverá la fecha del último acceso del archivo que especifique en el formato TdateTime de Delphi.
7. Etiquetas coloridas.
Ya no estamos satisfechos con las etiquetas simples proporcionadas por Delphi. ¿Podemos tener diferentes fuentes y colores en las etiquetas para enriquecer nuestras capacidades de rendimiento? La respuesta es sí, y no hay necesidad de controles proporcionados por terceros. Sólo necesitamos usar inteligentemente TRichEdit proporcionado por el propio Delphi. Primero elimine el borde del control TRichEdit: RichEd??it1. BorderStyle: ΚbsNone; también establece el atributo de solo lectura en verdadero: RichEd??it1. ReadOnly: ΚTrue; Luego, utiliza software como write para crear texto en formato RichText, que se puede mostrar mediante la siguiente declaración:
RicoEditar1. Texto sin formato: ΚFalso;
RicoEditar1. Pauta. LoadFromFile(′c: est.rtf′);
8. Cómo evitar que Win95 muestre errores críticos.
No importa cómo depures tu programa repetidamente, después de entregárselo al usuario, pueden ocurrir errores inesperados. ¿Cómo evitar que Win95 muestre una ventana blanca y les diga a los usuarios que se ha producido un error inesperado y embarazoso? Podemos hacer esto:
var
wOldError??Modo: Palabra;
comenzar
//decirle a win??dows que ignore los errores críticos y guarde el modocur??renterrormode
wOldError??Modo: ΚSetEr??rorMode (SEM-FAILCRITI??CALERRORS);
intentar
//el código que podría generar un error crítico va aquí． ． ．
finalmente
//volver al modo de error anterior
SetErrorMode(wOldErrorMode);
fin;
fin;
Utilice principalmente SetErrorMode() para completar esta función.
9. En qué objeto se acaba de hacer clic con el mouse.
En Win95, el botón derecho del mouse juega un papel importante. Sin embargo, por razones históricas, el uso del botón derecho no es lo suficientemente efectivo incluso en Delphi. El siguiente programa puede indicarle cómo saber el nombre del objeto. simplemente hizo clic derecho. Primero cree un menú emergente y luego el siguiente código puede indicarle el nombre del objeto en el que acaba de hacer clic derecho: Popup??Menu1. Componente emergente. Nombre de clase.
10. Compruebe si se han cambiado el CD-ROM u otros discos.
La forma más sencilla de comprobar si se ha modificado un CD-ROM o un disco es comprobar su número de volumen. Simplemente puede usar la siguiente función para devolver el número de serie del volumen del disco GetDiskVolSerialID ('E'). El código de función es el siguiente:
funciónGetDiskVolSerialID(cDriveName: char): DWord;
var
dwTemp1, dwTemp2:DPalabra;
comenzar
GetVolumeInformation(PChar(cDriveName+′:′), Nil, 0, ΝResult, dwTemp2, dwTemp2, Nil, 0);
fin;