TListBox con varias columnas y un encabezado para cada una, ¿es posible?
 

Quiero rellenar un TListBox con tres columnas y que cada columna tenga un encabezado.

¿Es posible hacer esto en un TListBox?

Saludos.

¿Por qué no mejor usas un TStringGrid?

// Saludos

Además, para eso lo mejor es que uses el TListView, que está en la pestaña "Win32". Eso si, tienes que poner su propieda "ViewStyle" con valor "vsReport"

Un saludo

Estoy usando TListView y me va muy bien, gracias por las aportaciones.

Un saludo.

@ElKurgan, ¿sabes si puedo hacer que las columnas del TListView no sean sizeables?

No veo la forma.

Saludos.

Hubiera pensado que hay una forma fácil de hacer esto, pero no la encuentro. Una opción sencilla puede ser la de ajustar las propiedades MinWidth y MaxWidth de cada columna para que coincidan con Width. De esta forma evitas que se cambie el tamaño aunque no evitas el efecto de arrastrar el borde de la columna: sigue apareciendo la línea de arrastrado y cuando la sueltas vuelve a su posición original.

Otra manera, más complicada, es interceptando el mensaje WM_NOTIFY que se manda al ListView cuando se realiza alguna operación, verificar que el mensaje corresponda a la acción BEGINTRACK y anularla.

Lo malo de esto, es que para interceptar este mensaje tienes que reemplazar el procedimiento de ventana (el que maneja todos los mensajes de una ventana) del ListView.

Aquí te pongo cómo hacerlo:

Código Delphi [-]
type
  TForm1 = class(TForm)
    ListView1: TListView;
    procedure FormCreate(Sender: TObject);
  private
    OldLVWndProc: TWndMethod;
    procedure LVWndProc(var Message: TMessage);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  OldLVWndProc := ListView1.WindowProc;
  ListView1.WindowProc := LVWndProc;
end;

procedure TForm1.LVWndProc(var Message: TMessage);
begin
  if (Message.Msg = WM_NOTIFY) and (TWMNotify(Message).NMHdr.code = HDN_BEGINTRACKW) then
    Message.Result := 1
  else

  OldLVWndProc(Message);
end;

El campo OldLVWndProc sirve para guardar una referencia al procedimiento original, a fin de que puedas llamarlo desde tu nuevo procedimiento. Este nuevo procedimiento lo asigna en el constructor del formulario y lo único que hace es verifcar que el mensaje corresponda al cominezo de arrastrar el borde de una columna, y, en tal caso, simplemente regresa 1 (indicando que ya se procesó el mensaje) sin llamar al procedimiento original.

Aún así, queda el "problema" de que el cursor del ratón sigue cambiando al ponerlo en el borde, como si se pudiese cambiar el tamaño.

// Saludos

Madre mía, no pensaba que fuera tan complicado, pensaba que sería poner a False alguna propiedad pero veo que no es así, muchísimas gracias por la aportación roman.

Saludos.