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

← →
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;

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