1:

SendMessage(Listbox.Handle, LB_SetHorizontalExtent, BreiteInPixel, LongInt(0));					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

Procedure TFormX.SetHorizontalScrollBar(lb : TListBox);
var
  j, MaxWidth,tmp: integer;
begin
 MaxWidth := 0; tmp := 0;
 for j := 0 to lb.Items.Count - 1 do
 if MaxWidth < lb.Canvas.TextWidth(lb.Items[j]) then
 begin
   MaxWidth := lb.Canvas.TextWidth(lb.Items[j]);
   If MaxWidth > tmp then tmp := MaxWidth;
 end;
 SendMessage(lb.Handle,LB_SETHORIZONTALEXTENT,MaxWidth+300,0);
end;					

1:
2:
3:
4:
5:

  private
    { Private-Deklarationen }
    flbHorzScrollWidth, flbHorzScrollWidth2: Integer;
    procedure AutoSizeListBox(TargetBox: TListBox; Index: integer; Rect: TRect;
      ScrollWidth: integer);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

procedure TForm1.AutoSizeListBox(TargetBox: TListBox; Index: integer; Rect: TRect;
  ScrollWidth: integer);
var
  Len: integer;
  NewText: string;
begin
  NewText := TargetBox.Items[Index];

  with TargetBox.Canvas do
  begin
    FillRect(Rect);
    TextOut(Rect.Left + 1, Rect.Top, NewText);
    Len := TextWidth(NewText) + Rect.Left + 3;
    if Len > ScrollWidth then
    begin
      ScrollWidth := Len;
      TargetBox.Perform(LB_SETHORIZONTALEXTENT, ScrollWidth, 0 );
    end;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm1.ListBox2DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  case (Control as TListBox).Tag of
    1: AutoSizeListBox(ListBox1, Index, Rect, flbHorzScrollWidth);
    2: AutoSizeListBox(ListBox2, Index, Rect, flbHorzScrollWidth2);
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin
  case (Control as TListBox).Tag of
    1: showMessage('Test');
    2: AutoSizeListBox(ListBox2, Index, Rect, flbHorzScrollWidth2);
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TForm1.AutoSizeListBox(TargetBox: TListBox);
var
  Len, i: integer;
  NewText: string;
begin
  Len := TargetBox.Canvas.TextWidth(TargetBox.Items[0]);
  for i := 0 to TargetBox.Items.Count - 1 do
  begin
    NewText := TargetBox.Items[i];
    if TargetBox.Canvas.TextWidth(NewText) > Len then
      Len := TargetBox.Canvas.TextWidth(NewText);
  end;

  TargetBox.ScrollWidth := Len + 10; //diese Zeile mit der darunter ersetzen
  //TargetBox.Perform(LB_SETHORIZONTALEXTENT, Len + 10, 0 );
end;					

1:

Rect := ItemRect(x);