Agregar quitar Items,subitmes con TListView :S
 

Hola, ¿como agrego un subitem y mas subitems cuando se necesite
a un TListView. en tiempo de ejecución
Mediante Codigo en un boton. ?

// solo he logrado agregar un Item. con este codigo

ListView1.Items.Add.Caption:='OtroCorreo@hotmail.com' ;

{=============}
En una columna la izquierda tengo el item que logro crear con el
codigo de arriba y en la columna derecha quiero agregar
la descripción de la columna derecha.

Lo que quiero es poder agregar y quitar items y subitems.
en tiempo de ejecución.


Gracias por la atención.

Buenas!!

Aquí te pego un trozo de codigo de un codigo fuente de un codigo fuente escrito por manulon sobre un hospital. Creo que puedes encontrarlo en la seccion ejemplos de esta pagina..

Código Delphi [-]
procedure TForm3.InsertarClick(Sender: TObject);
var
 Ficha: TPaciente; // Ficha es un registro TPaciente
 Paciente: TListItem; // Elemento para introducir un nuevo paciente
 i: Integer; // Variable para un bucle
begin
 // Asignamos el los datos del paciente al Edit correspondiente
 Ficha.Nombre := edNombre.Text;
 Ficha.Edad := edEdad.Text;
 Ficha.Telefono := edTelefono.Text;
 with edNombre, edEdad, edTelefono do
   begin
     Close; // Cerramos la ventana
     Paciente := Form2.Lista.Items.Add; // Añadimos el paciente
     Paciente.Caption := Ficha.Nombre; // Aisgnamos el nombre introducido al paciente
     i := Form2.Lista.Items.Count-1; // i lleva la ultima posicion
     Form2.Lista.Items.Item[i].SubItems.Add(Ficha.Edad); // Añadimos un SubItem con la edad
     Form2.Lista.Items.Item[i].SubItems.Add(Ficha.Telefono); // Añadimos otro SubItem con el telefono
     Form2.Lista.Items.Item[i].SubItems.Add(IntToStr(i+1)); // Añadimos otro SubItem con el numero de orden
estado }
   end;
end;

Saludos!

Esta Interesante el codigo. y me agrado más el que hace un contador para agregar
numeración creciente por cada nuevo paciente,

GRacias por responder. :D