En tant que nouveau langage de programmation Windows, Delphi est de plus en plus privilégié par les programmeurs et les passionnés en raison de ses nombreuses excellentes fonctionnalités. Les dix conseils suivants couvrent un large éventail de sujets et j'espère qu'ils profiteront 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. doevents fonctionne, donc parfois nous ne pourrons pas faire en sorte que Windows réponde à plusieurs événements simultanés. En fait, l'objet application de Delphi inclut une méthode similaire : PRocessMessage Vous pouvez appeler application. ProcessMessage à compléter comme vb. La même fonctionnalité que doevents dans .
2. Appelez NetscapeNavigator dans Delphi.
Avec la popularité d'Internet, avez-vous déjà pensé à démarrer le navigateur Netscape dans votre programme Delphi et à afficher la page d'accueil de l'adresse WWW que vous spécifiez ? 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： s32program etscape． 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.
Les nombres relativement grands sembleront difficiles à lire lors de la sortie. Il est assez simple d'afficher des nombres avec des marques de section dans Delphi, comme suit : xxxxx. 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 donner quelques indications, par exemple quelles variables sont déclarées mais jamais utilisées. Nous savons que vous pouvez contrôler si vous souhaitez que Delphi fasse cela via les options du menu, mais que se passe-t-il si, en raison de besoins particuliers, vous n'avez besoin que de Delphi pour vous inviter dans un segment de code spécifié ? 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 à la procédure suivante.
procédureChangeIt ;
var
Reg:TregIniFile ;
commencer
Reg：ΚTRegIniFile． Créer('ControlPanel')
;
Rég. WriteString('bureau', 'Fond d'écran',
'c : pwin95forest. 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 existe une nouvelle fonction dans Win95, qui consiste à obtenir la dernière date d'accès au fichier. Le célèbre logiciel CleanSweapforWin95 s'appuie sur cette fonction comme base pour juger si un fichier est fréquemment consulté. En Delphi, nous pouvons réaliser cette fonction grâce au programme suivant.
functionGetFileLastaccessTime(sFileName:string):TDate??Time;
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"trouver"
Fenêtres. RechercherFerme(h);
//convertir le FILETIME en FILETIME local
FileTimeToLocalFileTime(ffd.ftLastAccessTime, lft);
//convertir FILETIME en heure DOS
FileTimeToDosDateTime(lft,LongRec(dft).Hi,LongRec(dft).Lo);
// enfin, convertissez l'heure DOS en TDate Time pour l'utiliser dans les fonctions date/heure natives de Delphi
Résultat : ΚFileDateToDateTime(dft);
fin;
fin;
GetFileLastAccessTime() renverra la date du dernier accès au fichier que vous spécifiez au format TdateTime de Delphi.
7. Étiquettes colorées.
Nous ne sommes plus satisfaits des simples étiquettes fournies par Delphi. Pouvons-nous avoir différentes polices et couleurs dans les étiquettes pour enrichir nos capacités de performances. La réponse est oui, et il n'est pas nécessaire de recourir à des contrôles fournis par des tiers. Il suffit d'utiliser intelligemment TRichEdit fourni par Delphi lui-même. Supprimez d’abord la bordure du contrôle TRichEdit : RichEd??it1. BorderStyle : ΚbsNone ; définissez également l'attribut en lecture seule sur true : RichEd??it1. ReadOnly : ΚTrue ; Ensuite, vous utilisez un logiciel tel que write pour créer du texte au format RichText, qui peut être affiché via l'instruction suivante :
RichEdit1. Texte brut : ΚFaux ;
RichEdit1. Lignes． LoadFromFile(′c: est.rtf′);
8. Comment empêcher Win95 d'afficher des erreurs critiques.
Quelle que soit la façon dont vous déboguez votre programme à plusieurs reprises, après l'avoir remis à l'utilisateur, des erreurs inattendues peuvent survenir. Comment empêcher Win95 d'afficher une fenêtre blanche et d'informer vos utilisateurs qu'une erreur inattendue et embarrassante s'est produite ? Nous pouvons faire ceci :
var
wOldError??Mode : Word ;
commencer
//tellwin??dowstoignorecriticalerrorsandsaveur??renterrormode
wOldError??Mode : ΚSetEr??rorMode (SEM-FAILCRITI??CALERRORS);
essayer
//le code pouvant générer une erreur critique est ici． ． ．
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.
Dans Win95, le bouton droit de la souris joue un grand rôle. Cependant, pour des raisons historiques, l'utilisation du bouton droit n'est pas assez efficace même dans Delphi. Le programme suivant peut vous indiquer comment connaître le nom de l'objet que vous utilisez. juste un clic droit. Créez d'abord un menu contextuel, puis le code suivant peut vous indiquer le nom de l'objet sur lequel vous venez de cliquer avec le bouton droit : Popup??Menu1. Composant contextuel. 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 renvoyer le numéro de série du volume du disque GetDiskVolSerialID (« E »).
functionGetDiskVolSerialID(cDriveName : char) : DWord ;
var
dwTemp1, dwTemp2:DWord ;
commencer
GetVolumeInformation(PChar(cDriveName+′:′), Nil, 0, ΝResult, dwTemp2, dwTemp2, Nil, 0);
fin;