LISTBOX и ItemIndex

[Alex2009]

Доброе время суток.Не буду вас грузить раскажу сразу свой вопрос.Итак мне нужно как то определить сколько в ListBox имеется ItemIndex их может быть сколько угодно, все зависит от того сколько пользователь всел их туда.И еще вопрос возле каждого текста в ListBox должна быть номерация как сделать и это?
Всем заранее спосибо!

[bitSoft]

Да первый глупый вопрос,
1. ListBox.Items.Count
2.

var
 i : integer;
begin
 for i := 0 to ListBox.Items.Count - 1 do
   ListBox.Items.Strings[i] := ListBox.Items.Strings[i] + '     ' + IntToStr(i);

end;

[Alex2009]

Извени просто первый рас ЛисБокс использую.Люди у кого есть открытый код Listbox хочу под себя переписать!

[Alex2009]

Вот теперь нарисовался такой вопрос нужно выделять в листБоксе акивный ItemIndex одним цветом тоесть если я на ItemIndex:=1 класнул мышкой он выделился синим а неоктивные белым?

[bitSoft]

не забудь, //lst1.Style := lbOwnerDrawFixed;

unit untMain;

interface

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

type
  TForm1 = class(TForm)
    lst1: TListBox;
    procedure lst1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect;
      State: TOwnerDrawState);
    procedure lst1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  ItemSelcted : Integer = -1;

implementation

{$R *.dfm}

procedure TForm1.lst1Click(Sender: TObject);
begin
 ItemSelcted := lst1.ItemIndex;
 lst1.Repaint;
end;

procedure TForm1.lst1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect;
  State: TOwnerDrawState);
begin
 if ItemSelcted = Index then lst1.Canvas.Font.Color := clRed else lst1.Canvas.Font.Color := clBlack;
 lst1.Canvas.TextRect(Rect,Rect.Left,Rect.Top,lst1.Items.Strings[Index]);
end;

end.

[Alex2009]

Ой извени подскажи что нужно написать для выделения активного Индекса жирным текстом?

[bitSoft]

Сообщение от Alex2009

Ой извени подскажи что нужно написать для выделения активного Индекса жирным текстом?

я тебе показал пример как сменить цвет, ну так и шрифт,

 
 lst1.Canvas.Font.Name := 'Tahoma';
 lst1.Canvas.Font.Style := [fsBold];

[Alex2009]

Еще вопрос как сделать так например открываю файл в ListBox
ListBox1.Item.add(OpenDialog1.FileN ame)
Как сделать чтобы одинаковые файлы в ListBox перезаписывались и не повторялись?

[bitSoft]

http://delphi.about.com/od/delphitip...e-duplicat.htm

[Alex2009]

Помогите горю облазил и перерыл все не как не найду как перетаскивать файлы в ListBox в моем случае это mp3 файлы.Помогите плиз...