In einem sorgfältig geschriebenen Windows -Programm werden Start -up -Vorsichtsmaßnahmen angezeigt. Mit ein wenig Inhalt können Sie der Anzeige des Programms viel Farbe hinzufügen.
Da das Projekt selbst das Hauptfenster des Programms erstellt und der Start -Sputter -Bildschirm vor dem Erstellen des Hauptfensters angezeigt werden muss, muss die Projektdatei einen eigenen Startbildschirm erstellen. Dies bedeutet, dass der Benutzer den Quellcode so ändern muss, um die Projektdatei zu erstellen, die in der Delphi -Programmierung normalerweise nicht erforderlich ist. Der folgende Prozess führt den Prozess der Einrichtung eines Sputterbildschirms ein.
1. Starten Sie ein neues Projekt. Nennen Sie das Formular Mainform und setzen Sie seine Bildunterschrifteneigenschaft auf Splashindemo. Speichern Sie dieses Projekt in einem Verzeichnis, wie z. B. C: Projectssplashin. Nennen Sie das Mainform Unit Main und nennen Sie das Splashin der Projektdatei.
2. Einlegen Sie eine Tastekomponente in Mainform. Ändern Sie die Namenseigenschaft von Button in ExitButton und seine Bildunterschrifteneigenschaft zum Beenden. Erstellen Sie einen Prozessor für das Onclick -Ereignis von ExitButton und fügen Sie eine enge Aussage zwischen den Schlüsselwörtern des Prozesses und des Endes ein.
3. Wählen Sie den Befehl neuer Formular aus oder klicken Sie auf die Schaltfläche Neues Formulargeschwindigkeit. Fügen Sie eine neue Form hinzu.
V. Ändern Sie außerdem seine BorderSyle -Eigenschaft in BSNONE und setzen Sie die drei Subwerte unter Bordericons auf false.
5. Speichern Sie dieses Projekt. Wenn Delphi den Leser auffordert, den Namen der Einheitsdatei anzugeben, stellen Sie sicher, dass das aktuelle Verzeichnis das richtige Verzeichnis ist. Geben Sie den Splash für den Namen der Einheitsdatei für Splashform ein.
6. Stellen Sie die aktivierte Eigenschaft von Splashform auf False ein. Dies ist einer der seltenen Fälle, in denen Benutzer Windows keine Tastatur- und Mausbefehle bereitstellen möchten. In diesem Beispiel möchten wir, dass das Programm die volle Kontrolle über die Anzeige von Splashform hat.
7. Da das Fenster keinen Umriss hat, fügen Sie ein Kräfelkomponentenobjekt aus der zusätzlichen Komponentenklasse ein. Dies hilft, die Kanten des Fensters zu definieren. Setzen Sie die Ausrichtung von Bevel1 auf Alclient. Ändern Sie gleichzeitig die Formeigenschaft des Objekts in BSFrame und ändern Sie seine Style -Eigenschaft in BSRAUP. Diese Werte werden vom Benutzer bestimmt.
8. Fügen Sie die Komponenten ein, die Sie in Splashform verwenden möchten. Fügen Sie hier keine Tasten oder andere interaktive Steuerelemente ein. Die Anwendung selbst zeigt das Dialogfeld Startsputter an und entfernt.
9. Wählen Sie das Projektmenü. Markieren Sie das Splash-Projekt-Popup-Menü. Wählen Sie den Befehl Optionen aus. Wählen Sie im Dialogfeld "generierter Projektoptionen" die SEAGE -Beschriftung für Formulare aus. Beachten Sie, dass Mainform und Splashform in der automatisch erstellten Formularliste enthalten sind. Markieren Sie jedes Formular und klicken Sie auf die rechte Maustaste, um sie in das verfügbare Formular zu verschieben. Alle Delphi -Formulare werden zur Laufzeit automatisch im Speicher erstellt, wodurch Speicher- und Systemressourcen konsumiert werden. In einem solchen Fall erstellt das Programm das Formular zur Laufzeit, und der Leser sollte das Formular aus der automatisch erstellten Liste löschen. Schließen Sie das Projektoptionsfenster.
10. Ändern Sie als nächstes den Quellcode des Projekts, um das Sputterdialogfeld anzuzeigen, bevor das Hauptfenster angezeigt wird. Hier müssen Sie Anweisungen in die Projektdatei einfügen, um der Projektdatei splash.dpr zu entsprechen. Der Projektquellcode lautet wie folgt:
Programmprojekt3;
Verwendung
Formen,
Haupt in 'main.pas' {MainForm},
Spritzer in 'Splash.pas' {Splashform};
{$ R *.res}
Beginnen
Splashform: = tsplashform.create (Anwendung);
Splashform.Show;
Splashform.Update;
Application.createForm (tmainForm, MainForm);
Splashform.close;
Anwendung.Run;
Ende.
11. Wenn das Programm zu diesem Zeitpunkt kompiliert und ausgeführt wird, wird das Dialogfeld "Start -Spotter" sehr schnell angezeigt und entfernt, sodass der Benutzer möglicherweise nicht die Möglichkeit hat, dies zu sehen. Um das Dialogfeld für einige Sekunden sichtbar zu erzwingen, wählen Sie das Mainform des Programms aus. Erstellen Sie einen Prozessor für den Befehl OnCreate des Formulars. Fügen Sie eine lange ganze Ganzzahl -Variable hinzu, die vor dem Keyword als Stoptime bezeichnet wird. Fügen Sie zwei Aussagen zwischen Beginn und Ende ein: Einer ist ein Aufruf zur Windows GetTickCount -Funktion. Setzen Sie Stoptime auf die Anzahl der Sekunden, in denen Windows ausgeführt wird. Die Programmliste lautet wie folgt:
Einheit Main;
Schnittstelle
Verwendung
Windows, Nachrichten, Systeme, Klassen, Grafiken, Steuerelemente, Formulare, Dialoge,
Stdctrls;
Typ
TmainForm = class (tform)
ExitButton: Tbutton;
Procedure ExitButtonClick (Absender: Tobject);
Prozedur Formcreate (Absender: Tobject);
Privat
{Private Deklarationen}
öffentlich
{Öffentliche Erklärungen}
Ende;
var
Mainform: tmainForm;
Durchführung
{$ R *.dfm}
procedure tmainform.exitbuttonClick (Absender: tobject);
Beginnen
schließen;
Ende;
Prozedur tmainForm.FormCreate (Absender: Tobject);
var
Stoppzeit: Longint;
Beginnen
STOPTime: = GettickCount Div 1000;
while ((GetTickCount Div 1000) ＜ (Stopptime+2)) tun
Schlaf (1);
Ende;
Ende.
12. Drücken Sie F9, um das Programm zu kompilieren und auszuführen.