Scrollbares Label gesucht
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 |
Re: Scrollbares Label gesucht
Delphi-Quellcode:
Und das ist ein Umweg.
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; |
Re: Scrollbares Label gesucht
Hi,
allerdings ist das ein Umweg, aber ein machbarer. Allerdings wäre mir eine einfache Komponente lieber. ;) Chris |
Re: Scrollbares Label gesucht
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 01:29 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz