Scrollkomponente

[Sharky]

Zitat von Kompon Ente:

... Ich brauche 'ne Kompo, die auch horizontal scrollt - kann jemand helfen?

Ja, die TListBox

Delphi-Quellcode:

procedure SetLBScrollbar(aValue: TListBox);
var
  ndx, curentWidth, MaxWidth: integer;
begin
  MaxWidth := 0;
  for ndx := 0 to aValue.Items.Count - 1 do
  begin
    curentWidth := aValue.Canvas.TextWidth(aValue.Items.Strings[ndx] + 'x');
    if MaxWidth < curentWidth then
      MaxWidth := curentWidth;
  end;
  SendMessage(aValue.Handle, LB_SETHORIZONTALEXTENT, MaxWidth, 0);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  SetLBScrollbar(ListBox1);
end;