Forum: Multimedia
Delphi
by Gehstock,
7. Okt 2007
zu verstehen was der Code macht dann hättest du gemerkt das da was fehlt
sollen wir dir das komplette Programm vorkauen
procedure TForm10.MediaPlayer1Click(Sender: TObject; Button: TMPBtnType;
var DoDefault: Boolean);
var s : String;
begin
With MediaPLayer1 do begin
case Button of
btPlay : begin
Forum: Multimedia
Delphi
by Gehstock,
6. Okt 2007
procedure TForm1.maplayerClick(Sender: TObject; Button: TMPBtnType; //all what happens while clicking different mediaplayer buttons
var DoDefault: Boolean);
begin
dodefault := false;
case button of // when you click .......
btnext: // .. "NEXT" button
begin
Timer1.Enabled := false;
ProgressBar1.Position := 0;
Forum: Multimedia
Delphi
by Gehstock,
6. Okt 2007
Du musst den Buttons vom Mediaplayer auch erstmal sagen was sie tun sollen