FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
El tipo de control que mencionás es el ListView en el caso de W$.
Por otro lado y contestando a tu pregunta, en el foro ya se conversaron temas relacionados al ordenamiento por columnas, sin ir mas lejos: http://www.clubdelphi.com/foros/showthread.php?t=7524& Por supuesto que tenés componentes de terceros (generalmente los mejores son comerciales) que hacen entre otras cosas lo que pedís. Espero que algo te ayude.
__________________
Suerte .: Gydba :. |
#2
|
|||
|
|||
Puedes poner esto en el evento OnTitleClick:
Código:
procedure TFDatos.DBGProfesTitleClick(Column: TColumn); var iX : integer; sOrden : string; begin //orden según columna pinchada Case Column.Index Of 0 : sOrden := 'NOMBRE, APELLIDOS'; 1 : sOrden := 'APELLIDOS, NOMBRE'; 2 : sOrden := 'ASIGNATURA, APELLIDOS, NOMBRE'; 3 : sOrden := 'SITUACION, APELLIDOS, NOMBRE'; end; DM.IBDSProfes.Close; DM.IBDSProfes.SelectSQL.Text := 'Select * from PROFES order by '+sOrden; DM.IBDSProfes.Open; for iX := 0 to 3 do if Column.Index <> iX then DBGProfes.Columns.Items[iX].Color := clWhite else Column.Color := clCream; end; Cambia el color de la columna seleccionada. En el evento OnCreate debes colorear la que está inicialmente ordenada, por ej. Código:
DBGProfes.Columns.Items[1].Color := clCream; |
|
|
|