Scrollbares Label gesucht

[sniper_w]

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    ScrollBox1: TScrollBox;
    StaticText1: TStaticText;
    procedure FormCreate(Sender: TObject);
    procedure Memo1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
 var a:integer;
begin
randomize;
 for a:=0 to 10 do
 StaticText1.Caption :=StaticText1.Caption+ #10 + inttostr(random(100000))+ ' '+
 inttostr(random(100000))+ ' '+inttostr(random(100000))+ ' '+
 inttostr(random(100000))+ ' ';

 StaticText1.Width := ScrollBox1.Width;
 StaticText1.Height := ScrollBox1.Height;
end;

procedure TForm1.Memo1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
const sc_dragmove = $f012;
begin
  ReleaseCapture;
  StaticText1.Perform(wm_syscommand,sc_dragmove, 0);
end;

Und das ist ein Umweg.