программное выделение в listbox нескольких пунктов

[serg48]

Добрый вечер! Помогите решить проблему: на форме имеется listbox, button. Свойство multiselect включено. При открытии формы данный компонент заполняется некоторыми строками. Далее, если пользователь нажимает кнопку, то должны автоматически выделиться несколько пунктов. Если в цикле программно устанавливать в ItemIndex номера нужных строк, то в listboxе остается выделенным самый последний пункт из нужных. Подскажите, как можно программно выделить несколько пунктов?

[Maxizar]

Код: Выделить всё

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  StdCtrls;

type

  { TForm1 }

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

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
var I:Integer;
begin
  ListBox1.ClearSelection; //Очистка предыдушего выделения
for I:=0 to ListBox1.Count-1  do
ListBox1.Selected[I]:=True;     //Выделяем все


end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ListBox1.ClearSelection; //Очистка предыдушего выделения
  ListBox1.Selected[2]:=True;//Или так выделяем тока 2 и 3
  ListBox1.Selected[3]:=True;//не забываем что нумерация с 0
end;

end.



Ну я по идее как всегда не прав

[serg48]

Вроде заработало. Огромное спасибо за помощь!