Als neue Windows-Programmiersprache hat Delphi
Viele hervorragende Funktionen sind in einem integriert, sodass es bei Programmierern und Programmierern immer beliebter wird.
Beliebt bei Audiophilen. Die folgenden zehn Techniken decken ein breites Spektrum an Bereichen ab
Genug, um Delphi-Enthusiasten zu helfen.
1． Ähnlich wie vb. Die Ereignisse funktionieren in.
Möglicherweise stellen Sie fest, dass es in Delphi kein Äquivalent zu vb gibt. doev rein
ents-Funktion, sodass wir manchmal nicht in der Lage sind, Windows stark reagieren zu lassen
gleichzeitige Ereignisse. Eigentlich im Delphi-Anwendungsobjekt
Enthält eine ähnliche Methode: PRocessMessage, die Sie aufrufen können
Anwendung nutzen. ProcessMessage wird wie vb abgeschlossen. eintauchen
nts gleiche Funktion.
2． Rufen Sie NetscapeNavigator in Delphi auf.
Haben Sie angesichts der Popularität des Internets jemals darüber nachgedacht, es in Ihrem Delphi-Programm zu verwenden?
Starten Sie den Netscape-Browser und zeigen Sie die Homepage der von Ihnen angegebenen WWW-Adresse an.
. 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: ιns32ιprogramιne
tscape． 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.
Größere Zahlen erscheinen bei der Ausgabe in Delphi schwer lesbar
Die Anzeige von Zahlen mit Abschnittsmarkierungen ist eine ziemlich einfache Sache, wie folgt: xx
xxx． Bildunterschrift: ΚFormatFloat(′#′, 524667500).
4. Erhalten Sie Hinweise zur Kompilierungszeit.
In Delphi 2.0 können Sie beim Kompilieren den Compiler bitten, Ihnen einiges mitzuteilen
Tipps, z. B. welche Variablen deklariert, aber nie verwendet werden. wir wissen es
Ja, Sie können über die Optionen im Menü steuern, ob Delphi dies tun soll.
Wenn Sie jedoch besondere Anforderungen haben, benötigen Sie es nur im angegebenen Codesegment.
Was soll ich tun, wenn ich eine Eingabeaufforderung wie lphi erhalte? 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. Bitte beachten Sie die folgenden Hinweise
Programm.
procedureChangeIt;
var
Reg:TregIniFile;
beginnen
Reg:ΚTRegIniFile． Erstellen('Systemsteuerung')
;
Reg. WriteString('desktop', 'Wallpaper',
′c: ιpwin95ιfor??est． 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, die den Zugriff auf Dateien ermöglicht
letztes Datum. Darauf setzt die berühmte Software CleanSweapforWin95
Diese Funktion dient 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:stri
ng):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″f
ind″
Windows. FindClose(h);
//converttheFILETIMEtolocalFILETIME
FileTimeToLocalFileTime(ffd.ftLastAccessTime
,lft);
//convertFILETIMEtoDOStime
FileTimeToDosDateTime(lft,LongRec(dft).Hi
,LongRec(dft). Siehe);
//finally,convertDOStimetoTDateTimeforusein
Delphis native Datums-/Uhrzeitfunktionen
Ergebnis: ΚFileDateToDateTime(dft);
Ende;
Ende;
GetFileLastAccessTime() verwendet Delphis TdateTi
Das me-Format gibt das letzte Zugriffsdatum der von Ihnen angegebenen Datei zurück.
7. Bunte Etiketten.
Wir sind mit den einfachen Tags von Delphi nicht mehr zufrieden
Es gibt verschiedene Schriftarten und verschiedene Farben in den Etiketten, um uns zu bereichern
Leistungsfähigkeit. Die Antwort lautet „Ja“, und es ist keine Kontrolle durch Dritte erforderlich
Um eine Software zu erstellen, müssen wir lediglich TRichEdit nutzen, das von Delphi selbst bereitgestellt wird
Das ist es. Entfernen Sie zunächst den Rahmen des TRichEdit-Steuerelements: RichEd??it1
． BorderStyle: ΚbsNone; setzt auch das schreibgeschützte Attribut auf true: Rich
Ed??it1. ReadOnly: ΚTrue; Sie verwenden dann write oder ähnliches
Nachdem die Software Text im RichText-Format erstellt hat, können Sie ihn mit der folgenden Anweisung anzeigen
Es wird gezeigt:
RichEdit1. PlainText:ΚFalse;
RichEdit1. Linien． LoadFromFile(′c: ιtest.r
tf′);
8. So verhindern Sie, dass Win95 kritische Fehler anzeigt.
Unabhängig davon, wie oft Sie Ihr Programm debuggen, wird es nach der Übergabe an den Benutzer immer ein Fehler geben
Es können unerwartete Fehler auftreten. So verhindern Sie, dass Win95 weiß angezeigt wird
Was ist mit Fenstern, die Ihren Benutzern mitteilen, dass ein peinlicher, unerwarteter Fehler aufgetreten ist? wir können
Gehen Sie folgendermaßen vor:
var
wOldError??Mode: Word;
beginnen
//tellwin??dowstoignorecriticalerrorsandsave
aktueller Mietfehlermodus
wOldError??Mode: ΚSetEr??rorMode (SEM-FAILCR
ITI??CALERRORS);
versuchen
//codethatmightgenerateacriticalerrorgoesher
e. ． ．
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?
Unter Win95 spielt jedoch die rechte Maustaste eine große Rolle
Aus historischen Gründen ist die Verwendung von Rechtsklick auch in Delphi immer noch schwierig.
Das folgende Programm ist nicht effektiv genug und kann Ihnen sagen, woran Sie erkennen, wann Sie gerade mit der rechten Maustaste geklickt haben
Objektname. Erstellen Sie zuerst ein Popmenu und dann den folgenden Code
Um Ihnen den Namen des Objekts anzuzeigen, auf das Sie gerade mit der rechten Maustaste geklickt haben: Popup??Menu1. PopupCom
Komponente． 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 verändert wurde
besteht darin, die Volumennummer zu überprüfen. Zur Rückkehr können Sie einfach die folgende Funktion verwenden
Gibt die Volume-Seriennummer der Festplatte GetDiskVolSerialID ('E') zurück.
Der Funktionscode lautet wie folgt:
functionGetDiskVolSerialID(cDriveName: char)
:DWort;
var
dwTemp1, dwTemp2: DWord;
beginnen
GetVolumeInformation(PChar(cDriveName+′:
ι′),
Null,
0,
ΝErgebnis,
dwTemp2,
dwTemp2,
Null,
0);
Ende;