Code:

AlphaBlend:= true;
AlphaBlend:= 90;

Code:

AlphaBlend:= true; //ovo aktivira providnost
AlphaBlendValue:= 90; //a ovo je nivo providnosti

Code:

button2.caption:= 'next';

Code:

button17.caption:= 'back';

Code:

procedure TForm1.Button1Click(Sender: TObject); //Button1 je dugme za menjanje jezika
begin
button2.Caption:= 'next';  //dugme na prvoj formi
Form2.Button17.Caption:= 'back'; //dugme na drugoj formi
end;

Code:

procedure TForm1.ProgressBar1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
Timer1.Enabled:= false;
MediaPlayer1.Pause;
ProgressBar1.Position:= Round(x/ProgressBar1.ClientWidth*ProgressBar1.Max);
MediaPlayer1.Position:= ProgressBar1.Position;
MediaPlayer1.Play;
Timer1.Enabled:= true;
end;

Code:

procedure TForm1.Button6Click(Sender: TObject);
begin
//pre ovog ide neki kod, ali necu da ga prepisujem, sve je u primeru
ProgressBar1.Max:= MediaPlayer1.Length;
ProgressBar1.Position:= 0;

Button3.Click; //ovo nisam menjao, samo sam ostavio da vidis gde sam ubacio gornje dve linije

Code:

procedure TForm1.NotifyProc(Sender: TObject);
const
  ModeStr: array[TMPModes] of string = ('Not ready', 'Stopped', 'Playing', 'Recording', 'Seeking', 'Paused', 'Open');
begin
   with Sender as TMediaPlayer do
   begin
     Form1.Caption := ModeStr[Mode];
     case Mode of
       mpStopped: if not stopFlag then Button6.Click;
       mpPlaying: if Position = Length then Stop;
                                  //ili Position := 0;
     end;
     Notify := True;
   end;
end;

Code:

DragonSlayer:
Here you go

1. Button1 has Caption that says "Play"
2. Checkbox1 has Text that says "Sync with Trackbar"
3. MediaPlayer1 has Visible set to False, and in this simple demo I've loaded in a file as well (was using an RMI file in the Windows' Media folder)
4. Timer1 has Interval set to 1000 and Enabled set to False


procedure TForm1.Button1Click(Sender: TObject);
begin
  MediaPlayer1.TimeFormat := tfMilliseconds;
  TrackBar1.Frequency := 5000;
  TrackBar1.Max := MediaPlayer1.Length;
  MediaPlayer1.Play;
end;

procedure TForm1.TrackBar1Change(Sender: TObject);
var
  LastChecked: Boolean;
begin
  LastChecked := CheckBox1.Checked;
  if CheckBox1.Checked then
    CheckBox1.Checked := False;
  MediaPlayer1.Stop;
  MediaPlayer1.Position := TrackBar1.Position;
  if CheckBox1.Checked <> LastChecked then
    CheckBox1.Checked := LastChecked;
  MediaPlayer1.Play;
end;

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  Timer1.Enabled := CheckBox1.Checked;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  TrackBar1.OnChange := nil; // this is to prevent the checkbox from becoming unchecked
  TrackBar1.Position := MediaPlayer1.Position;
  TrackBar1.OnChange := TrackBar1Change;
end;



Do not however, that using the original trackbar is not such a good solution, because when you are dragging the thumb slider (before releasing), the OnChange event still gets fired and so the MediaPlayer will try changing Position all the time (slooooow).

Perhaps you would also like to find some free trackbar components on the Net that you can use, which will only respond to OnChange when you release the mouse.

Do have fun with the code :)

Code:

Label1.Caption:= IntToStr(MediaPlayer1.Length div 60000) + ':' + FormatFloat('0#', Round(MediaPlayer1.Length / 1000) mod 60);

Code:

Label2.Caption:= IntToStr(MediaPlayer1.Position div 60000) + ':' + FormatFloat('0#', Round(MediaPlayer1.Position / 1000) mod 60);