Item in ListView erkennen (wenn angeklickt)

[cruiser]

Mein Ansatz wär folgendes in der Detailform:

Delphi-Quellcode:

public
  procedure ShowWithParam(const filename, filesize, category, description: string);

{...}

procedure T<FormDetail>.ShowWithParam(const filename, filesize, category, description: string);
begin
  lblName.Caption := filename;
  lblSize.Caption := filesize;
  lblCat.Caption  := category;
  memDesc.Text    := description;
  Show{modal};
end;

Aufruf:

Delphi-Quellcode:

begin
  with lv.Selected do 
  begin  
    <FormDetail>.ShowWithParam(Caption, SubItems[0], SubItems[1], SubItems[2]);
  end;
end;