No hay respuestas en este tema

[sir.dev.a.lot]

[TRUCO DELPHI] Listbox con una Barra de desplazamiento horizontal.

delphi

procedure SetHorizontalScrollBar(lb : TListBox);
	var
	 i, MaxWidth: integer;
	begin
	 MaxWidth := 0;
	 for i := 0 to lb.Items.Count - 1 do
	 if MaxWidth < lb.Canvas.TextWidth(lb.Items[i]) then
	   MaxWidth := lb.Canvas.TextWidth(lb.Items[i]);
 
	 SendMessage(lb.Handle,
	             LB_SETHORIZONTALEXTENT,
	             MaxWidth + 5, 0);
	end;

Ejemplo de uso:

delphi

SetHorizontalScrollBar(ListBox1);

Saludos!