Ver la Versión Completa : 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?
Columna1 Columna2 Columna3
A 1 x
B 2 y
C 3 z
Saludos.
roman
29-01-2009, 01:49:14
¿Por qué no mejor usas un TStringGrid?
// Saludos
ElKurgan
29-01-2009, 07:26:36
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.
roman
30-01-2009, 18:53:36
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:
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.
vBulletin v3.6.8, Derechos ©2000-2024, Jelsoft Enterprises Ltd.