[ Pobierz całość w formacie PDF ]

programu.
8. Między begin a end wpisz komendę:
Form4.Show;
Przed chwilą stworzyłeś nowy formularz  Form4. Przed kompilacją należy go zapisać.
Klub IKS www.informatyka.edu.pl
© Copyright 2003 by Wydawnictwo Szkolne PWN
Opracowała Anna Kijo
MiniKurs programowania w środowisku Borland Delphi
Odcinek XIV
9. Kliknij znaczek dyskietki lub wybierz z menu Plik/Zapisz.
Może się tak zdarzyć, że zapomnisz zapisać zmiany i z rozpędu rozpoczniesz kompilację.
Otrzymasz wtedy komunikat o konieczności zapisania nowo utworzonego Form4 i Unit4.
Kliknij OK.
10. Skompiluj program i sprawdz
jego działanie. Kliknij przycisk Film.
Czy otworzył się Formularz 4?
11. Zamknij okno Film.
12. Zamknij swój program.
Powrócimy do fazy projektowania.
13. Wyświetl Form4 (Shift+F12), jeżeli nie jest już otwarty.
14. Wstaw komponent: Panel, usuń napis na obiekcie, powiększ do rozmiarów ok. 450x350.
[rys.1]
15. Właściwość - BevelOuter ustaw na byNone.
16. Uaktywnij formatkÄ™ (kliknij poza panelem). Wstaw dwa przyciski: start i stop. Ustaw im
odpowiednie właściwości według swojego uznania. [rys.1]
MediaPlayer
Panel
Przyciski
rys.1
Klub IKS www.informatyka.edu.pl
© Copyright 2003 by Wydawnictwo Szkolne PWN
Opracowała Anna Kijo
MiniKurs programowania w środowisku Borland Delphi
Odcinek XIV
17. Przyszedł czas na komponent MediaPlayer  zakładka System. Proponuję wstawić go na
samej górze. [rys.1]
18. Ustaw właściwości komponentu MediaPlayer:
" FileName  umieść ścieżkę dostępu do dowolnego pliku *.avi.
Odnajdz
dowolny plik, skopiuj go do folderu zawierającego twój program i ustaw
ścieżkę dostępu.
" DeviceType  dtAutoSelect
" AutoOpen  True
" AutoRewind  True
" Display  Panel1
" Enabled  True
Można ustawić także właściwość VisibleButtons i zablokować lub uaktywnić niektóre
przyciski MediaPlayer.
19. Skompiluj program i sprawdz
jego działanie.
Za pomocą MediaPlayer możesz już uruchomić film.
Do czego zatem służą przyciski start i stop?
Jeżeli nie chcesz uwidaczniać przycisków komponentu MediaPlayer, ustaw właściwość
Visible na False (przy zaznaczonym obiekcie).
20. Do przycisku start przypisz procedurÄ™ (komendÄ™ w kodzie z
ródłowym).
Kliknij 2 razy w przycisk start, zostaniesz przeniesiony do kodu programu. [rys.2]
rys.2
Klub IKS www.informatyka.edu.pl
© Copyright 2003 by Wydawnictwo Szkolne PWN
Opracowała Anna Kijo
MiniKurs programowania w środowisku Borland Delphi
Odcinek XIV
21. Wpisz komendÄ™:
with MediaPlayer1 do
begin
Open;
DisplayRect:=Rect(0,0,Panel1.Width,Panel1.Height);
Play;
Notify:=True
end;
22. Do przycisku stop przypisz procedurÄ™ (komendÄ™ w kodzie z
ródłowym).
Kliknij 2 razy w przycisk stop, zostaniesz przeniesiony do kodu programu. [rys.3]
Wpisz komendÄ™:
MediaPlayer1.Stop;
MediaPlayer1.Close;
rys.4
Czas, aby skompilować program, przetestować i zapisać.
23. Zamknij program Delphi i uruchom pik .exe swojego programu.
24. Wywołaj okno - Film i sprawdz
jego działanie poprzez naciśnięcie przycisku start.
[rys.5]
Klub IKS www.informatyka.edu.pl
© Copyright 2003 by Wydawnictwo Szkolne PWN
Opracowała Anna Kijo
MiniKurs programowania w środowisku Borland Delphi
Odcinek XIV
Mam nadzieję, że wszystko działa i nie musisz zaczynać od początku.
Pamiętaj o utworzeniu nowego folderu i skopiowaniu do niego wszystkich plików.
Archiwizuj swoje dane!
Klub IKS www.informatyka.edu.pl
© Copyright 2003 by Wydawnictwo Szkolne PWN
Opracowała Anna Kijo [ Pobierz całość w formacie PDF ]

zanotowane.pl

doc.pisz.pl

pdf.pisz.pl

glaz.keep.pl