Ładny brzuch

Witam :)

Mam taki kodzik:

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, XPMan, StdCtrls, WavPlayer; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; XPManifest1: TXPManifest; Image1: TImage; Image2: TImage; Image3: TImage; Image4: TImage; Image5: TImage; Image6: TImage; Image7: TImage; WavPlayer2: TWavPlayer; WavPlayer3: TWavPlayer; WavPlayer4: TWavPlayer; WavPlayer5: TWavPlayer; WavPlayer6: TWavPlayer; WavPlayer7: TWavPlayer; WavPlayer1: TWavPlayer; procedure Button2Click(Sender: TObject); procedure Button1Click(Sender: TObject); procedure WavPlayer7AfterPlay(Sender: TObject); procedure WavPlayer1AfterPlay(Sender: TObject); procedure WavPlayer2AfterPlay(Sender: TObject); procedure WavPlayer3AfterPlay(Sender: TObject); procedure WavPlayer4AfterPlay(Sender: TObject); procedure WavPlayer5AfterPlay(Sender: TObject); procedure WavPlayer6AfterPlay(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button2Click(Sender: TObject); begin close; end; procedure TForm1.Button1Click(Sender: TObject); begin WavPlayer1.Play; Image1.Visible:=true; end; procedure TForm1.WavPlayer7AfterPlay(Sender: TObject); begin Image7.Visible:=false; end; procedure TForm1.WavPlayer1AfterPlay(Sender: TObject); begin Image1.Visible:=false; Image2.Visible:=True; WavPlayer2.Play; end; procedure TForm1.WavPlayer2AfterPlay(Sender: TObject); begin Image2.Visible:=False; Image3.Visible:=True; WavPlayer3.Play; end; procedure TForm1.WavPlayer3AfterPlay(Sender: TObject); begin Image3.Visible:=false; Image4.Visible:=true; WavPlayer4.Play; end; procedure TForm1.WavPlayer4AfterPlay(Sender: TObject); begin Image4.Visible:=false; Image5.Visible:=true; WavPlayer5.Play; end; procedure TForm1.WavPlayer5AfterPlay(Sender: TObject); begin Image5.Visible:=false; Image6.Visible:=True; wavPlayer6.Play; end; procedure TForm1.WavPlayer6AfterPlay(Sender: TObject); begin Image6.Visible:=false; Image7.Visible:=true; WavPlayer7.Play; end; end.

I caly czas jak klikne na start to playuje sie WavPlayer7, a nie 1 :S :o

Pomocy.


Strzele sobie - zdarzenia OnAfterPlay s wykonywane kiedy TWavPlayer zacznie gra ?? Czyli po wywoaniu WavPlayer1 w acuchu s wykonywane po kolei zadarzenia uruchamiajce kolejne playery a dojd do WavPlayer7 ...


I caly czas jak klikne na start to playuje sie WavPlayer7, a nie 1 :S  :o


Witam :)

Mam taki kodzik:
A w jakim jzyku ten kodzik jest napisany?

Przeczytaj sobie pierwszy punkt i si dostosuj:
http://forum.ks-eksp...showtopic=32325


Zapomnialem... Delphi :)

Edit:

OnAfterPlay to chyba po odegraniu, nie ? :huh:
Uytkownik Shooter edytowa ten post 24 listopad 2005, 18:50

OnAfterPlay to chyba po odegraniu, nie ?  :huh:

A to ja mam wiedzie ?? Nie znasz komponentw, ktrych uywasz ?? Zakomentuj linijk WavPlayer2.Play; i sprawd ;)


A w jakim jzyku ten kodzik jest napisany?

Przeczytaj sobie pierwszy punkt i si dostosuj:
http://forum.ks-eksp...showtopic=32325

To blad jaki bedzie ?

Edit:


Co to jest start? :> Wnioskuje ze button1. Zauwaz ze przy onclick w button1 jest WavPlayer1.Play a nie WavPlayer7.Play :>

  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • zsf.htw.pl
    •