Als neue Windows-Programmiersprache erfreut sich Delphi aufgrund seiner vielen hervorragenden Funktionen immer größerer Beliebtheit bei Programmierern und Enthusiasten. Die folgenden zehn Tipps decken ein breites Themenspektrum ab und ich hoffe, dass sie für Delphi-Enthusiasten von Nutzen sind.
1. Ähnlich wie vb. Die Ereignisse funktionieren in.
Möglicherweise stellen Sie fest, dass es in Delphi kein Äquivalent zu vb gibt. Da Ereignisse nicht funktionieren, können wir Windows manchmal nicht auf mehrere gleichzeitige Ereignisse reagieren lassen. Tatsächlich enthält das Anwendungsobjekt von Delphi eine ähnliche Methode: PRocessMessage. Sie können application aufrufen. ProcessMessage wird wie vb abgeschlossen. Die gleiche Funktionalität wie doevents in .
2. Rufen Sie NetscapeNavigator in Delphi auf.
Haben Sie angesichts der Popularität des Internets jemals darüber nachgedacht, den Netscape-Browser in Ihrem Delphi-Programm zu starten und die Homepage der von Ihnen angegebenen WWW-Adresse anzuzeigen? Das folgende Programm kann diese Funktion ausführen.
ProgrammNetscape;
nutztDDEMan;
procedureGo??toURL(sURL: string);
var
dde:TDDEClientConv;
beginnen
dde:=TDDEClientConv. Erstellen(nil);
mitddedo
beginnen
//specifythelocationofnetscape. exe
ServiceApplication:=′c: s32program etscape. exe′;
//activatetheNetscapeNavigator
SetLink('Netscape', 'WWW-Activate');
RequestData(′0xFFFFFFFF′);
//hat die angegebene URL erhalten
SetLink('Netscape', 'WWW-OpenURL');
RequestData(sURL+′,,0xFFFFFFFF,0x3,,,′);
CloseLink;
Ende;
dde. Frei;
Ende;
beginnen
GotoURL(′http://www.yahoo.com/′);
Ende.
3. Formatierte Ganzzahlausgabe.
Relativ große Zahlen erscheinen bei der Ausgabe schwer lesbar. Es ist ganz einfach, Zahlen mit Abschnittsmarkierungen in Delphi anzuzeigen, wie folgt: xxxxx. Bildunterschrift: ΚFormatFloat(′#′, 524667500).
4. Erhalten Sie Hinweise zur Kompilierungszeit.
In Delphi 2.0 können Sie beim Kompilieren den Compiler bitten, Ihnen einige Hinweise mitzuteilen, z. B. welche Variablen deklariert, aber nie verwendet werden. Wir wissen, dass Sie über die Optionen im Menü steuern können, ob Delphi dies tun soll. Was aber, wenn Sie aufgrund besonderer Anforderungen nur Delphi benötigen, um Sie in einem bestimmten Codesegment aufzufordern? Bitte beachten Sie die folgenden Verfahren.
{$HINTON}
procedureTform1. Button1Click(Sender: TObject);
var
X: ganze Zahl;
beginnen
Ende;
{$HINTOFF}
5. Ändern Sie das Windows95-Hintergrundbild.
Sie können das Hintergrundbild in Delphi ganz einfach ändern. Gehen Sie hierzu wie folgt vor.
procedureChangeIt;
var
Reg:TregIniFile;
beginnen
Reg:ΚTRegIniFile. Erstellen('Systemsteuerung')
;
Reg. WriteString('desktop', 'Wallpaper',
'c: pwin95forest. bmp′);
Reg. WriteString('desktop', 'TileWallpaper
′,′1′);
Reg. Frei;
SystemParametersInfo(SPI-SETDESKWALLPAPER, 0
, nil, SPIF-SENDWININICHANGE);
Ende;
6. Rufen Sie das Datum ab, an dem die Datei zuletzt verwendet wurde.
In Win95 gibt es eine neue Funktion, mit der das letzte Zugriffsdatum auf die Datei ermittelt werden kann. Die berühmte CleanSweapforWin95-Software nutzt diese Funktion als Grundlage für die Beurteilung, ob häufig auf eine Datei zugegriffen wird. In Delphi können wir diese Funktion durch das folgende Programm erreichen.
functionGetFileLastaccessTime(sFileName:string):TDate??Time;
var
ffd:TWin32FindData;
dft:DWord;
lft:TFileTime;
h: THandle;
beginnen
//getfileinformation
h:ΚWindows. FindFirstFile(PChar(sFileName), ffd);
if(INVALID―HANDLE―VALUEΙΛh)then
beginnen
//we'relookingforjustonefile,socloSEOur"find"
Windows. FindClose(h);
//converttheFILETIMEtolocalFILETIME
FileTimeToLocalFileTime(ffd.ftLastAccessTime, lft);
//convertFILETIMEtoDOStime
FileTimeToDosDateTime(lft,LongRec(dft).Hi,LongRec(dft).Lo);
// schließlich die DOS-Zeit in TDateTime umwandeln, um sie in den nativen Datums-/Zeitfunktionen von Delphi zu verwenden
Ergebnis: ΚFileDateToDateTime(dft);
Ende;
Ende;
GetFileLastAccessTime() gibt das letzte Zugriffsdatum der von Ihnen angegebenen Datei im TdateTime-Format von Delphi zurück.
7. Bunte Etiketten.
Wir sind mit den einfachen Beschriftungen von Delphi nicht mehr zufrieden. Können wir unterschiedliche Schriftarten und Farben in den Beschriftungen verwenden, um unsere Leistungsfähigkeit zu verbessern? Die Antwort lautet: Ja, und es sind keine Steuerelemente von Drittanbietern erforderlich. Wir müssen lediglich TRichEdit verwenden, das von Delphi selbst bereitgestellt wird. Entfernen Sie zunächst den Rahmen des TRichEdit-Steuerelements: RichEd??it1. BorderStyle: ΚbsNone; setzt auch das schreibgeschützte Attribut auf true: RichEd??it1. ReadOnly: ΚTrue; Dann verwenden Sie Software wie write, um Text im RichText-Format zu erstellen, der durch die folgende Anweisung angezeigt werden kann:
RichEdit1. PlainText:ΚFalse;
RichEdit1. Linien. LoadFromFile(′c: est.rtf′);
8. So verhindern Sie, dass Win95 kritische Fehler anzeigt.
Unabhängig davon, wie Sie Ihr Programm wiederholt debuggen, können nach der Übergabe an den Benutzer unerwartete Fehler auftreten. Wie kann verhindert werden, dass Win95 ein weißes Fenster anzeigt und Ihren Benutzern mitteilt, dass ein peinlicher unerwarteter Fehler aufgetreten ist? Wir können Folgendes tun:
var
wOldError??Mode: Word;
beginnen
//tellwin??dowstoignorecriticalerrorsandsavecur??renterrormode
wOldError??Mode: ΚSetEr??rorMode (SEM-FAILCRITI??CALERRORS);
versuchen
//codethatmightgenerateacriticalerrorgoeshere. . .
Endlich
//gobackto previouserrormode
SetErrorMode(wOldErrorMode);
Ende;
Ende;
Verwenden Sie hauptsächlich SetErrorMode (), um diese Funktion abzuschließen.
9. Welches Objekt wurde gerade mit der Maus angeklickt?
In Win95 spielt die rechte Maustaste eine große Rolle. Aus historischen Gründen ist die Verwendung der rechten Maustaste jedoch selbst in Delphi nicht effektiv genug. Das folgende Programm kann Ihnen sagen, wie Sie den Namen des Objekts ermitteln einfach mit der rechten Maustaste angeklickt. Erstellen Sie zunächst ein Popmenü, und dann kann Ihnen der folgende Code den Namen des Objekts mitteilen, auf das Sie gerade mit der rechten Maustaste geklickt haben: Popup??Menu1. PopupComponent. Klassenname.
10. Überprüfen Sie, ob die CD-ROM oder andere Datenträger geändert wurden.
Der einfachste Weg, um zu überprüfen, ob eine CD-ROM oder ein Datenträger geändert wurde, besteht darin, die Volume-Nummer zu überprüfen. Sie können einfach die folgende Funktion verwenden, um die Volume-Seriennummer der Festplatte zurückzugeben: GetDiskVolSerialID ('E'). Der Funktionscode lautet wie folgt:
functionGetDiskVolSerialID(cDriveName: char): DWord;
var
dwTemp1, dwTemp2:DWord;
beginnen
GetVolumeInformation(PChar(cDriveName+′:′), Nil, 0, ΝResult, dwTemp2, dwTemp2, Nil, 0);
Ende;