//---------------------------------------------------------------------------
//Adiciona Horizontal Scrollbar
void Horizontal_Scrollbar()
{
int A, B;
String C;
// Encontra o comprimento do item mais longo.
A = 0;
for (int i=0; i<Form1->ListBox1->Items->Count; i++)
{
C = Form1-> ListBox1-> Items-> Strings[i];
B = Form1-> ListBox1 -> Canvas-> TextWidth(C);
if (B > A) A = B;
}
//Adiciona um pouco mais para um bom efeito visual no listbox.
A += 10;
//Manda o Windows criar a barra de rolagem com o Valor do A
SendMessage(Form1 -> ListBox1 -> Handle, LB_SETHORIZONTALEXTENT, A, 0);
}
//---------------------------------------------------------------------------