Виде в делфи

[beygul]

Привет всем! Помогите реализовать такую задачу:
В компоненте ListBox имеются названия видеофрагментов. По нажатию на определённое название в ListBox-е - должен просто тупо воспроизводиться определённый файл, при нажатии на другое название - другой файл. Видео - в формате .avi

Заранее всем молодёжный респект!!!

[fbus]

а в чем собственно проблема?

[beygul]

Проблема в плохом знании компонента MediaPlayer((((( Не знаю как реализовать непосредственно воспроизведение...

[fbus]

погугли... да и тут на сайте примеров полно, надо только поиском воспользоваться

[pm-mc]

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    MediaPlayer1: TMediaPlayer;
    ListBox1: TListBox;
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    Panel1: TPanel;
    procedure Button1Click(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then ListBox1.Items.Add(OpenDialog1.FileName);
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
  MediaPlayer1.FileName := ListBox1.Items[ListBox1.Itemindex];
  MediaPlayer1.Open;
  MediaPlayer1.Play;
end;

end.

[beygul]

Всем спасибо! Сделал по своему, на мой взглюд так получилось проще.

procedure TForm1.TreeView1DblClick(Sender: TObject);
var S : string;
begin
if TreeView1.Selected <> nil then begin
S := 'video\video'+IntToStr(TreeView1.Se lected.StateIndex) + '.avi';
MediaPlayer1.FileName := S;
MediaPlayer1.Open;
MediaPlayer1.Play;
end;
end;

Тут я использовал другой компонент для списка. Но возник такой вопрос. Какое свойство отвечает за наличие впереди пунктирных линий? То есть как сделать так, чтобы этот компонент внешне не был похож на TreeView, а был как ListBox?

[Stilet]

То есть как сделать так, чтобы этот компонент внешне не был похож на TreeView, а был как ListBox?

Никак. Дерево это дерево. Используй настоящий ListBox вместо него в таком случае.

[beygul]

нет, я помню что я видел где в древе - убирали визуально точки, которые находятся перед словом. И получается как список... Просто я не помню какое это свойство...((((