Скачать: CL | DM;

Помогите создать прокрутку файла...   Найти похожие ветки 

← →
NikitaVer   (2007-10-28 18:27) [0]

Я создал прогу чтобы она могла открыть и читать видео файлы.И я не знаю еще создать еще чтобы файл можно было прокрутить до определенного момента.

вот код:

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, Menus, ExtCtrls, MPlayer, StdCtrls;

type
 TForm1 = class(TForm)
   MediaPlayer1: TMediaPlayer;
   Panel1: TPanel;
   Panel2: TPanel;
   MainMenu1: TMainMenu;
   OpenDialog1: TOpenDialog;
   N1: TMenuItem;
   N3: TMenuItem;
   N4: TMenuItem;
   N5: TMenuItem;
   Button1: TButton;
   Button2: TButton;
   Button3: TButton;
   procedure N3Click(Sender: TObject);
   procedure Button1Click(Sender: TObject);
   procedure Button2Click(Sender: TObject);
   procedure N5Click(Sender: TObject);
   procedure Button3Click(Sender: TObject);
 private
   { Private declarations }
   procedure EnableBattons(State:Boolean);
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.N3Click(Sender: TObject);
begin
EnableBattons(false);
if not OpenDialog1.Execute then exit;

try
MediaPlayer1.FileName:=OpenDialog1.FileName;
MediaPlayer1.Open;
except
Application.MessageBox("Îøèáêà îòêðûòèÿ ôàéëà", "Îøèáêà!!!");
exit;
end;
EnableBattons(true);
end;

procedure TForm1.EnableBattons(State: Boolean);
begin

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
MediaPlayer1.Play;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
MediaPlayer1.Stop;
end;

procedure TForm1.N5Click(Sender: TObject);
begin
Close;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
MediaPlayer1.Pause;
end;

end.

---

← →
Palladin ©   (2007-10-28 18:28) [1]

> И я не знаю еще создать еще чтобы файл можно было прокрутить
> до определенного момента

А зачем тебе это? И зачем кому то код котроый ты привел?

---

← →
AIK   (2007-10-28 18:37) [2]

Кидаем на форму ScrollBar или TrackBar или что душе угодно

там где ты успешно открываеш файл:

> procedure TForm1.N3Click(Sender: TObject);
> begin
> EnableBattons(false);
> if not OpenDialog1.Execute then exit;
>
> try
> MediaPlayer1.FileName:=OpenDialog1.FileName;
> MediaPlayer1.Open;

scrollBar1.Position:=MediaPlayer1.Position;
.......

procedure TForm1.ScrollBar1Scroll(Sender: TObject; ScrollCode: TScrollCode;
 var ScrollPos: Integer);
begin
MediaPlayer1.Position:=scrollBar1.position;
Mediaplayer1.Play; {можно и без этого но тогда при перемотки медиа будет останавливаться}
end;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.015 c