Código Delphi [-] procedure TRegistroForm.ListVehicSelectItem(Sender: TObject; Item: TListItem; Selected: Boolean); begin if Selected then begin //Guardo la chapa TextCH := Item.Caption; // Guarda el contenido seleccionado de la columna Fecha TextFecha := Item.SubItems[1]; // Guarda el contenido seleccionado de la columna Tipo //TextTipo := Item.SubItems[2]; end; end;
procedure TRegistroForm.ListVehicSelectItem(Sender: TObject; Item: TListItem; Selected: Boolean); begin if Selected then begin //Guardo la chapa TextCH := Item.Caption; // Guarda el contenido seleccionado de la columna Fecha TextFecha := Item.SubItems[1]; // Guarda el contenido seleccionado de la columna Tipo //TextTipo := Item.SubItems[2]; end; end;