Adicionar barra de rolagem horizontal no ListBox com Delphi

Adicionar barra de rolagem horizontal no ListBox

{ - Coloque um ListBox no form;

  - Altere o OnCreate do Form conforme abaixo:

}

procedure TForm1.FormCreate(Sender: TObject);

var

  I, Temp, MaxTextWidth: integer;

begin

  { Adiciona algumas linhas no ListBox }

  Listbox1.Items.Add('Linha 1');

  Listbox1.Items.Add('Linha 2, longa para que seja necessária a barra de rolagem horizontal');

  Listbox1.Items.Add('Linha 3');

  if Listbox1.Items.Count > 1 then begin

    { Obtém o comprimento, em pixels, da linha mais longa }

    MaxTextWidth := 0;

    for I := 0 to Listbox1.Items.Count - 1 do begin

      Temp := ListBox1.Canvas.TextWidth(ListBox1.Items[I]);

      if Temp > MaxTextWidth then

        MaxTextWidth := Temp;

    end;

    { Acrescenta a largura de um "W" }

    MaxTextWidth := MaxTextWidth + Listbox1.Canvas.TextWidth('W');

    { Envia uma mensagem ao ListBox }

    SendMessage(ListBox1.Handle, LB_SETHORIZONTALEXTENT, MaxTextWidth, 0);

  end;

end;

{ Para ocultar use a instrução abaixo: }

SendMessage(ListBox1.Handle, LB_SETHORIZONTALEXTENT, 0, 0);