Delphi-Quellcode:
procedure TF_M3x.sp21Click(Sender: TObject);
begin
videoname := 'v1.swf';
video1.stop; video1.movie:=nil;
video1.movie := ExtractFilePath(ParamStr(0)) + '\videos\v1.swf';
video1.Play;
end;
procedure TF_M3x.sp23Click(Sender: TObject);
begin
videoname := 'v2.swf';
video1.stop; video1.movie:=nil;
video1.movie := ExtractFilePath(ParamStr(0)) + '\videos\v2.swf';
video1.Play;
end;
Probier doch mal sowas hier in der Art... ist zwar eigentlich dasselbe, aber naja... (machs einfach mal nur zur Probe).
PS: Mir kommt grad wegen diesem hier was in den Sinn
Zitat:
Wieso spielt er auf Druck von Button2 nicht Video2 ab,
sondern spielt immer nur Video1 weiter ab??
Am Ende ist es nämlich bloß ein ganz blöder Fehler, z.B. dass in beiden Buttons dieselbe Prozedur bei einem Klick aufgerufen wird (das würde ich auch mal nachprüfen [im Objektinspektor]).
Es ist unmöglich, witzig zu sein ohne ein bisschen Bosheit. Die Bosheit eines guten Witzes ist der Widerhaken, der ihn haften lässt. - Georg Christoph Lichtenberg