Et spørgsmål om ikoner i et TListView

Davs.

Jeg har et TListview med en ting i, der har et ikon.

Hvordan kan man lave det sådan, at det ikon skifter,
når tingen bliver valgt?

Jeg kan IKKE bruge en løsning á la:

procedure TForm1.ListView1SelectItem(Sender: TObject; Item: TListItem;
  Selected: Boolean);
begin
if selected then (sender as tlistview).items [0].ImageIndex := 1
else (sender as tlistview).items [0].ImageIndex := 1;
end;

- - - -

Jeg vil gerne have en løsning, der *kun* involverer  *designtime* (når programmet *ikke* kører).