Listbox

[MS]

Подскажите как сделать, чтобы по двойному нажатию на элементе в listbox этот элемент проигрывался

[PooH]

что значит "проигрывался"?

[Finch]

Ребят, это вопрос на уровне Hello World. В любом более менее нормальном учебнике по Дельфи примерно во 2 или третьей главе объясняется что такое событие и обработчик события.

Пишеш обработчик события onSelect (может и по другому называется). Одним из параметров в обработчик поступает номер выбранного Item в списке. В обработчике запускаеш прогрыватель с соответствуюшими параметрами.

[RXL]

Finch, onChange.

[RomCom]

OnDblClick т.к. в задаче сказано "по двойному нажатию на элементе", а не при его изменнении

Код:

procedure TForm1.ListBoxDblClick(Sender: TObject);
begin
  //TListBox(Sender).ItemIndex - индекс выделенного элемента
end;

[MS]

Есть поцедура:

procedure TForm1.Play;
var
Fname: String;
nom: Integer;
Namef, rash : String;
leng,buf1, buf2: Integer;
begin
  Timer1.Enabled := False;

  nom:= ListBox1.ItemIndex;

  Namef := ListBox1.Items.Strings[nom];
  buf2 := LastDelimiter('.',Namef);
  rash := Copy(Namef, buf2, 4);
  buf1 := LastDelimiter('\',Namef);
  Delete(Namef, 1, buf1);
  leng := Length(Namef);
  buf2 := LastDelimiter('.',Namef);
  Delete(Namef, buf2, leng);

  Fname := ListBox1.Items[nom];

  if (rash = '.mp3') or (rash = '.m3u') then
  begin
   With ReadID3Tag(Fname) Do
    Begin
     Label7.Caption := Titel;

     Label8.Caption := Artist;


  end;

  MediaPlayer1.FileName := Fname;

  try
   Mediaplayer1.Open;
  except
    on EMCIDeviceError do
      begin
        ShowMessage('Ошибка обращения к файлу '+
                     ListBox1.Items[ListBox1.ItemIndex]);
        SpeedButton3.Down := False;
        exit;
      end;
  end;
  MediaPlayer1.Play;
  min := 0;
  sec := 0;
  Timer1.Enabled := True;
end;
end;

нужно чтобы значению ListBox1.ItemIndex присваивался тот элемент списка на который я нажму.

[PooH]

а разве он не присваивается?

[MS]

В том и дело, чтобы я не выбрал начинает проигрывать с первого.

[PooH]

оч. странно... у меня:

Код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(Inttostr(ListBox1.ItemIndex));
end;

end.

работает вполне адекватно.

а когда у тебя TForm1.Play вызывается?

[x77]

Код:

  Namef := ListBox1.Items.Strings[nom];
  buf2 := LastDelimiter('.',Namef);
  rash := Copy(Namef, buf2, 4);
  buf1 := LastDelimiter('\',Namef);
  Delete(Namef, 1, buf1);
  leng := Length(Namef);
  buf2 := LastDelimiter('.',Namef);
  Delete(Namef, buf2, leng);

а зачем это всё?

ExtractFileExt,
ExtractFileName,
etc.