Utilizamos cookies propias y de terceros. [Más información sobre las cookies].
Política de cookies
Proyecto AjpdSoft

· Inicio
· Buscar
· Contactar
· Cookies
· Descargas
· Foros
· Historia
· Nosotros
· Temas
· Top 10
· Trucos
· Tutoriales
· Wiki
Proyecto AjpdSoft: Foros

AjpdSoft :: Ver tema - Uso de TListView, fila seleccionada, nueva fila
Foros de discusión Buscar Perfil FAQ Iniciar sesión
Information Uso de TListView, fila seleccionada, nueva fila

Publicar nuevo tema Responder al tema
Foros de discusión » Borland Delphi, Codegear Delphi .Net   
Ver tema anterior :: Ver tema siguiente
AutorMensaje
varios
Magnífico usuario


Registrado: Oct 10, 2006
Mensajes: 2092

Asunto: Uso de TListView, fila seleccionada, nueva fila Responder citando

Quiero utilizar el componente de Delphi TListView, pero no sé cómo insertar una fila ni cómo obtener el valor de la fila actual seleccionada por el usuario.
MensajePublicado:
Jue Jun 04, 2009 5:37 am
Top of PageVer perfil de usuario
alonsojpd
Administrador/Moderador


Registrado: Sep 16, 2003
Mensajes: 2687

Asunto: Re: Uso de TListView, fila seleccionada, nueva fila Responder citando



Anuncios



varios escribió:
Quiero utilizar el componente de Delphi TListView, pero no sé cómo insertar una fila ni cómo obtener el valor de la fila actual seleccionada por el usuario.


Aquí te mostramos un ejemplo de cómo añadir filas a un ListView, en este caso el ListView tiene como propiedad "Name": lsReasignaciones. Y tiene tres columnas (que hemos añadido en tiempo de diseño): "Código", "De", "Para":

Código:

var
  ListItem : TListItem;
try
  md.tc5.Open;
  while not md.tc5.Eof do
  begin
    ListItem := lsReasignaciones.Items.Add;
    ListItem.Caption := md.tc5.fieldbyname('codigo').AsString;
    ListItem.SubItems.Add(md.tc5.fieldbyname('de').AsString);
    ListItem.SubItems.Add(md.tc5.fieldbyname('para').AsString);
    ListItem.SubItems.Add(md.tc5.fieldbyname('fecha').AsString);
    md.tc5.Next;
  end;
except
  md.tc5.Close;
  raise;
end;
md.tc5.Close;


Como ves, la primera columna se añade con un ".Caption", el resto con "SubItems.Add".
Por otro lado, "md.tc5" es un TQuery.

Para obtener el valor de la fila seleccionada:

Código:

procedure TformGIncidencia.lsReasignacionesDblClick(Sender: TObject);
begin
  if lsReasignaciones.ItemIndex = -1 then
  begin
    MessageDlg('Debe seleccionar una reasignación.',
        mtWarning, [mbok], 0);
    tabAsignacion.Show;
    lsReasignaciones.SetFocus;
  end
  else
  begin
    vtCodigoLog := StrToInt(lsReasignaciones.Items.Item[lsReasignaciones.ItemFocused.Index].Caption);
    if permisosMenuUsuario (vtCodigoUsuario,
        vtNumIncidencia, vtPermisoLectura, true) then
    begin
      application.createform(TFormIncidenciaLog, FormIncidenciaLog);
      FormIncidenciaLog.Tag := tTabla.fieldbyname('codigo').AsInteger;
      FormIncidenciaLog.Caption :=
          'Reasignaciones de la incidencia [' +
          tTabla.fieldbyname('codigo').AsString + ']';
      FormIncidenciaLog.showmodal;
    end;
  end;
end;
MensajePublicado:
Jue Jun 04, 2009 6:29 am
Top of PageVer perfil de usuario
Mostrar mensajes de anteriores:   
Todas las horas son GMT - 1 Horas
Publicar nuevo tema Responder al tema
Foros de discusión » Borland Delphi, Codegear Delphi .Net  

Cambiar a:  
Key
  Puede publicar nuevos temas en este foro
No puede responder a temas en este foro
No puede editar sus mensajes en este foro
No puede borrar sus mensajes en este foro
No puede votar en encuestas en este foro
Visita nuestro nuevo sitio web con programas y contenidos actualizados: Proyecto A