En tant que nouveau langage de programmation Windows, Delphi a
De nombreuses excellentes fonctionnalités sont intégrées en une seule, ce qui le rend de plus en plus populaire parmi les programmeurs et les programmeurs.
Favorisé par les audiophiles. Les dix techniques suivantes couvrent un large éventail de domaines, j’espère qu’elles le pourront.
De quoi faire plaisir aux passionnés de Delphi.
1． Similaire au vb. les événements fonctionnent-ils dans.
Vous constaterez peut-être qu’il n’y a pas d’équivalent à vb dans Delphi. doev dans
ents fonctionnent, donc parfois nous ne pourrons pas faire répondre beaucoup Windows
événements simultanés. En fait, dans l'objet d'application Delphi
Inclut une méthode similaire : PRocessMessage, vous pouvez appeler
Utilisez l'application. ProcessMessage à compléter comme vb. dove dans
C'est la même fonction.
2. Appelez NetscapeNavigator dans Delphi.
Avec la popularité d'Internet, avez-vous déjà pensé à l'utiliser dans votre programme Delphi ?
Démarrez le navigateur Netscape et affichez la page d'accueil de l'adresse WWW que vous avez spécifiée.
. Le programme suivant peut accomplir cette fonction.
programmeNetscape ;
utilise DDEMan ;
procédureGo??toURL(sURL: chaîne);
var
dde:TDDEClientConv;
commencer
dde : ΚTDDEClientConv. Créer (néant);
je retiens
commencer
//spécifiez l'emplacement de Netscape． exe
ServiceApplication : Κ′c : ιns32ιprogramιne
paysage． exe';
//activerleNetscapeNavigator
SetLink('Netscape', 'WWW-Activer');
RequestData(′0xFFFFFFFF′);
//aller à l'URL spécifiée
SetLink('Netscape', 'WWW-OpenURL');
RequestData(sURL+′,,0xFFFFFFFF,0x3,,,
′);
FermerLien ;
fin;
dde. Gratuit;
fin;
commencer
GotoURL(′http://www.yahoo.com/′);
fin.
3. Sortie entière formatée.
Des nombres plus grands sembleront difficiles à lire lors de la sortie, dans Delphi
L'affichage des nombres avec des marques de section est assez simple, comme suit : xx
xxx． légende : ΚFormatFloat(′#′, 524667500).
4. Obtenez des conseils au moment de la compilation.
Dans Delphi2.0, lors de la compilation, vous pouvez demander au compilateur de vous indiquer quelques
Conseils, par exemple quelles variables sont déclarées mais jamais utilisées. nous savons
Oui, vous pouvez contrôler si vous souhaitez que Delphi fasse cela via les options du menu.
Mais si, en raison de besoins particuliers, vous n’en avez besoin que dans le segment de code spécifié.
Que dois-je faire si je reçois une invite comme lphi ? Veuillez vous référer aux procédures suivantes.
{$HINTON}
procédureTform1． Button1Click (Expéditeur : TObject
);
var
X : entier ;
commencer
fin;
{$ASTUCE}
5. Changez le fond d'écran de Windows95.
Vous pouvez facilement changer le fond d'écran dans Delphi, veuillez vous référer à ce qui suit
programme.
procédureChangeIt ;
var
Reg:TregIniFile ;
commencer
Reg：ΚTRegIniFile． Créer('ControlPanel')
;
Rég. WriteString('bureau', 'Fond d'écran',
′c : ιpwin95ιfor??est． bmp′);
Rég. WriteString('bureau', 'TileWallpaper
′,′1′);
Rég. Gratuit;
SystemParametersInfo (SPI-SETDESKWALLPAPER, 0
, nul, SPIF-SENDWININICHANGE);
fin;
6. Obtenez la date à laquelle le fichier a été utilisé pour la dernière fois.
Il y a une nouvelle fonctionnalité dans Win95, qui permet d'accéder aux fichiers
dernier rendez-vous. Le célèbre logiciel CleanSweapforWin95 s'appuie sur cela
Cette fonction est utilisée comme base pour déterminer si un fichier est fréquemment consulté.
En Delphi, nous pouvons réaliser cette fonction grâce au programme suivant.
functionGetFileLastaccessTime(sFileName:stri
ng):TDate??Heure ;
var
ffd:TWin32FindData;
dft:DWord;
lft:TFileTime;
h : TPoignée ;
commencer
//obtenir des informations sur le fichier
h：ΚWindows. FindFirstFile(PChar(sFileName
), ffd);
si（INVALIDE―HANDLE―VALUEΙΛh）alors
commencer
//nous recherchons un seul fichier,socloSENotre″f
Indiana"
Fenêtres. RechercherFerme(h);
//convertir le FILETIME en FILETIME local
FileTimeToLocalFileTime(ffd.ftLastAccessTime
,à gauche);
//convertir FILETIME en heure DOS
FileTimeToDosDateTime(lft,LongRec(dft).Salut
,LongRec(dft). Lo);
// enfin, convertissez l'heure DOS en TDate Time pour une utilisation dans
Fonctions date/heure natives de Delphi
Résultat : ΚFileDateToDateTime(dft);
fin;
fin;
GetFileLastAccessTime() utilisera le TdateTi de Delphi
Le format me renvoie la date du dernier accès au fichier que vous spécifiez.
7. Étiquettes colorées.
Nous ne nous contentons plus des simples balises fournies par Delphi. Pouvons-nous.
Il existe différentes polices et différentes couleurs dans les étiquettes pour nous enrichir
capacité de performance. La réponse est oui, et il n’est pas nécessaire de recourir à un contrôle assuré par un tiers.
logiciel, il nous suffit d'utiliser intelligemment TRichEdit fourni par Delphi lui-même
C'est ça. Supprimez d'abord la bordure du contrôle TRichEdit : RichEd???it1
． BorderStyle : ΚbsNone ; définissez également l'attribut en lecture seule sur true : Rich
Ed???it1. ReadOnly : ΚTrue alors, vous utilisez write ou similaire
Une fois que le logiciel a créé le texte au format RichText, vous pouvez l'afficher via l'instruction suivante
Il est montré :
RichEdit1. Texte brut : ΚFaux ;
RichEdit1. Lignes． LoadFromFile(′c : ιtest.r
tf');
8. Comment empêcher Win95 d'afficher des erreurs critiques.
Peu importe le nombre de fois que vous déboguez votre programme, après qu'il soit remis à l'utilisateur, il y aura toujours
Des erreurs inattendues peuvent survenir. Comment empêcher Win95 d'afficher du blanc.
Qu’en est-il des fenêtres qui indiquent à vos utilisateurs qu’une erreur embarrassante et inattendue s’est produite ? nous pouvons
Faites ceci :
var
wOldError??Mode : Word ;
commencer
//tellwin??dowstoignore les erreurs critiques et enregistre
cur??renterrormode
wOldError??Mode : ΚSetEr??rorMode (SEM-FAILCR
ITI??CALEREURS);
essayer
//codepouvantgénéreruneerreurcritiquegoesher
e. ． ．
enfin
//revenir au mode d'erreur précédent
SetErrorMode(wOldErrorMode);
fin;
fin;
Utilisez principalement SetErrorMode() pour compléter cette fonction.
9. Quel objet vient d'être cliqué avec la souris.
Sous Win95, le bouton droit de la souris joue un grand rôle, mais
Pour des raisons historiques, l'utilisation du clic droit est encore difficile, même dans Delphi.
Pas assez efficace, le programme suivant peut vous indiquer comment savoir quand vous venez de cliquer avec le bouton droit
nom de l'objet. Créez d’abord un menu contextuel, puis le code suivant peut
Pour vous indiquer le nom de l'objet sur lequel vous venez de cliquer avec le bouton droit : Popup??Menu1. PopupCom
composant． Nom de classe.
10. Vérifiez si le CD-ROM ou d'autres disques ont été modifiés.
Le moyen le plus simple de vérifier si un CD-ROM ou un disque a été modifié
est de vérifier son numéro de volume. Vous pouvez simplement utiliser la fonction suivante pour revenir
Renvoie le numéro de série de volumes du disque GetDiskVolSerialID (« E »),
Le code fonction est le suivant :
fonctionGetDiskVolSerialID (cDriveName : char)
:DMot;
var
dwTemp1, dwTemp2 : DWord ;
commencer
GetVolumeInformation(PChar(cDriveName+′ :
ι′),
Néant,
0,
ΝRésultat,
dwTemp2,
dwTemp2,
Néant,
0);
fin;