Scrollbares Label gesucht

[CalganX]

Hi,
ich suche ein Label, durch das mit, durch ziehen mit der Maus, scrollen kann. Sowas gibt es z.B. in LeechGet.

Kennt jemand sowas?
Bei Torry habe ich nur Dinge gefunden, die sich danach anhörten, als ob die nur automatisch scrollen (Lauftextmäßig).

Chris

[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.

[CalganX]

Hi,
allerdings ist das ein Umweg, aber ein machbarer. Allerdings wäre mir eine einfache Komponente lieber.

Chris

[Lannes]

Hi

wie wärs damit :

Neue Komponenten für Delphi 3.0 oder 7.0

Lannes