Como nuevo lenguaje de programación de Windows, Delphi tiene
Muchas características excelentes están integradas en una, por lo que es cada vez más popular entre programadores y programadores.
Favorecido por los audiófilos. Las siguientes diez técnicas cubren una amplia gama de áreas, espero que puedan hacerlo.
Suficiente para beneficiar a los entusiastas de Delphi.
1． Similar a vb. ¿Funcionan los eventos?
Es posible que descubra que no existe un equivalente a vb en Delphi. doev en
Los ents funcionan, por lo que a veces no podremos hacer que Windows responda mucho.
eventos simultáneos. En realidad, en el objeto de aplicación Delphi
Incluye un método similar: PRocessMessage, puedes llamar
Utilice la aplicación. ProcessMessage para completar como vb. paloma en
nts misma función.
2． Llame a NetscapeNavigator en Delphi.
Con la popularidad de Internet, ¿alguna vez ha pensado en utilizarlo en su programa Delphi?
Inicie el navegador Netscape y muestre la página de inicio de la dirección WWW que especificó.
. 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: ιns32ιprogramιne
paisaje． 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 más grandes parecerán difíciles de leer cuando se generen, en Delphi
Mostrar números con marcas de sección es un asunto bastante simple, como sigue: xx
xxx． título: ΚFormatFloat(′#′, 524667500).
4. Obtenga sugerencias en tiempo de compilación.
En Delphi2.0, al compilar, puede pedirle al compilador que le diga algunas
Consejos, como qué variables se declaran pero nunca se utilizan. sabemos
Sí, puedes controlar si quieres que Delphi haga esto a través de las opciones del menú.
Pero si debido a algunas necesidades especiales, solo lo necesita en el segmento de código especificado.
¿Qué debo hacer si recibo un mensaje como lphi? 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 lo siguiente
programa.
procedimientoCambiarlo;
var
Reg:TregIniFile;
comenzar
Registro: ΚTRegIniFile. Crear('Panel de control')
;
Reg. WriteString('escritorio', 'Fondo de pantalla',
′c: ιpwin95ιfor??est． 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 característica en Win95, que es obtener acceso a archivos.
última fecha. El famoso software CleanSweapforWin95 se basa en esto
Esta función se utiliza como base 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:stri
ng):TFecha??Hora;
var
ffd:TWin32FindData;
dft:DPalabra;
lft:TFileTime;
h: TMango;
comenzar
//obtener información del archivo
h：ΚWindows. BuscarPrimerArchivo(PChar(sNombreArchivo
), ffd);
si（INVALID―HANDLE―VALUEΙΛh）entonces
comenzar
//estamos buscandosolounarchivo,socloSENuestro″f
Indiana"
Ventanas. BuscarCerrar(h);
//convierte el FILETIME en local FILETIME
FileTimeToLocalFileTime(ffd.ftLastAccessTime)
,lf);
//convertirFILETIMEaDOStime
FileTimeToDosDateTime(lft,LongRec(dft).Hola
,RecLong(dft). Lo);
//finalmente, convertimos la hora de DOS en TDateTime para usarla en
Funciones nativas de fecha/hora de Delphi
Resultado: ΚFileDateToDateTime(dft);
fin;
fin;
GetFileLastAccessTime() utilizará TdateTi de Delphi
me format devuelve la fecha del último acceso al archivo que especifique.
7. Etiquetas coloridas.
Ya no estamos satisfechos con las etiquetas simples proporcionadas por Delphi. ¿Podemos?
Hay diferentes tipografías y diferentes colores en las etiquetas para enriquecernos
capacidad de desempeño. La respuesta es sí y no es necesario el control proporcionado por un tercero.
software, solo necesitamos usar inteligentemente TRichEdit proporcionado por el propio Delphi
Eso es todo. Primero elimine el borde del control TRichEdit: RichEd??it1
． BorderStyle: ΚbsNone también establece el atributo de solo lectura en verdadero: Rico;
Ed??it1. ReadOnly: ΚTrue entonces, usa escritura o similar;
Después de que el software crea texto en formato RichText, puede mostrarlo a través de la siguiente declaración
Se muestra:
RicoEditar1. Texto sin formato: ΚFalso;
RicoEditar1. Pauta. LoadFromFile(′c: ιtest.r
tf');
8. Cómo evitar que Win95 muestre errores críticos.
No importa cuántas veces depures tu programa, después de entregarlo al usuario, siempre habrá
Pueden ocurrir errores inesperados. Cómo evitar que Win95 se muestre en blanco.
¿Qué pasa con las ventanas que informan a los usuarios que se ha producido un error inesperado y embarazoso? podemos
Haz esto:
var
wOldError??Modo: Palabra;
comenzar
//decirle a win??dows que ignore los errores críticos y guarde
cur??renterrormodo
wOldError??Modo: ΚSetEr??rorMode (SEM-FAILCR
ITI??CALERRORES);
intentar
//código que podría generar un error crítico
mi. ． ．
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, pero
Por razones históricas, el uso del clic derecho sigue siendo difícil incluso en Delphi.
No es lo suficientemente efectivo, el siguiente programa puede indicarle cómo saber cuándo hizo clic derecho
nombre del objeto. Primero cree un menú emergente y luego el siguiente código puede
Para indicarle el nombre del objeto en el que acaba de hacer clic derecho: Menú emergente??Menú1. PopupCom
componente． 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 utilizar la siguiente función para devolver
Devuelve el número de serie del volumen del disco GetDiskVolSerialID ('E'),
El código de función es el siguiente:
funciónGetDiskVolSerialID(cDriveName: char)
:DPalabra;
var
dwTemp1, dwTemp2: DWord;
comenzar
GetVolumeInformation(PChar(cDriveName+′:
ι′),
Nulo,
0,
ΝResultado,
dwTemp2,
dwTemp2,
Nulo,
0);
fin;