Beispiel für das Hinzufügen von Videoclips ohne Ton

Aus RAD Studio
Wechseln zu: Navigation, Suche

Nach oben zu Einer Anwendung Videoclips ohne Ton hinzufügen


Angenommen, Sie möchten beim Start Ihrer Anwendung einen Begrüßungsbildschirm mit einem animierten Logo anzeigen und ihn nach dem Abspielen des Clips wieder schließen.

Erstellen Sie zuerst ein neues Projekt. Speichern Sie die Datei Unit1.pas unter dem Namen Frmlogo.Pas und die Datei Project1.dpr unter Logo.Bpr.

  1. Doppelklicken Sie auf die Komponente Animate in der Kategorie Win32 der Tool-Palette.
  2. Geben Sie im Objektinspektor für die Eigenschaft Name den Wert Logo1 ein.
  3. Klicken Sie bei der Eigenschaft FileName auf die in der Wertespalte angezeigte Ellipsen-Schaltfläche. Suchen und markieren Sie eine .AVI-Datei. Klicken Sie dann auf Öffnen. Die AVI-Datei wird in den Speicher geladen.
  4. Verschieben Sie das Steuerelement mit der Maus in die rechte obere Ecke des Formulars.
  5. Setzen Sie seine Eigenschaft Repetitions auf 5.
  6. Klicken Sie im Formular, um es zu aktivieren. Setzen Sie seine Eigenschaften Name und Caption auf LogoForm1 bzw. Logo-Fenster. Verkleinern Sie nun das Formular, bis sich das Steuerelement etwa in der Mitte befindet.
  7. Doppelklicken Sie auf das Formularereignis OnActivate. Nehmen Sie in die Ereignisbehandlungsroutine die folgende Anweisung auf, die den AVI-Clip abspielt, wenn das Formular aktiviert wird:
    Logo1.Active := True;
    
    Logo1->Active = true;
    
  8. Doppelklicken Sie auf die Komponente Label in der Kategorie Standard der Tool-Palette. Setzen Sie Ihre Eigenschaft Caption auf Willkommen bei Armadillo Enterprises 4.0. Wählen Sie anschließend die Eigenschaft Font aus, und klicken Sie auf die Ellipsen-Schaltfläche in der Wertespalte, um das Dialogfeld Schriftart zu öffnen. Nehmen Sie hier folgende Einstellungen vor: Schriftschnitt = Fett, Schriftgrad = 18, Farbe = Aquamarin. Bestätigen Sie mit OK. Schriftgrad = 18, Farbe = Aquamarin. Bestätigen Sie mit OK. Positionieren Sie die Komponente in der Mitte des Formulars.
  9. Klicken Sie auf die Animate-Komponente, um sie zu aktivieren. Doppelklicken Sie auf das Ereignis OnStop. Nehmen Sie in die Ereignisbehandlungsroutine die folgende Zeile auf, um das Formular nach dem Abspielen des Clips zu schließen:
    LogoForm1.Close;
    
    LogoForm1->Close();
    
  10. Wählen Sie Start > Start, um die Anwendung zu starten.

Hinweis: Bei Windows 7 müssen Sie für die korrekte Ausführung der CommonAVIs (wie z. B. Vcl.ComCtrls.TAnimateParams.CommonAVI) der uses-Klausel (Delphi) oder der #include-Anweisung (C++) ShellAnimations hinzufügen. Damit werden Windows XP-ähnliche AVI-Ressourcen eingebunden.


Siehe auch