ListView

[qwerty55]

Как при одинарном клике на определенной строке допустим менять цвет формы? Скажим, к примеру по клику на 1 строке - красный, по 2 - зеленый!
Подскажите пожалуйста!

[DIgorevich]

procedure TForm1.ListView1Click(Sender: TObject);
begin
  case listView1.ItemIndex of
    0: form1.Color:=clRed;
    1: form1.Color:=clGreen;
  end;
end;

и т.д...

[qwerty55]

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

procedure TForm1.ListView1Click(Sender: TObject);
begin
  case listView1.ItemIndex of
    0: form1.Color:=clRed;
    1: form1.Color:=clGreen;
  end;
end;

и т.д...

спасибо!!!