Cursor für mehrere Objekte ändern

Mysterio08 · Beiträge: 21

N'Abend,

ich habe folgendes Problem:
ich möchte den Cursor für mehrere auf einer Form befindlichen - aber nicht für alle - Komponenten ändern. Konkreter: Auf einer Form befindet sich ein Menu, ein PageControl mit drei Seiten; auf jeder Seite befindet sich eine ScrollBar mit weiteren sichtbaren Komponenten. Für die ScrollBar und die darauf platzierten weiteren Edits, Labels etc. möchte ich nun den Cursor ändern.
Ändere ich ihn für die ScrollBar, gilt es nicht für die TEdit etc. Nun müsste ich ja jede einzelne Komponente ansprechen, aber das ist doch nicht sehr elegant.
Was wäre eine bessere Alternative?

mfg.

Stundenplan · Verfasst: So 05.09.10 10:34

Du meinst doch sicher eine ScrollBox?
Bei der jedenfalls könntest du das Array Scrollbox.Controls mit einer for-Schleife durchlaufen, z.B. so:

markieren

Delphi-Quelltext

1:
2:
3:
4:

var i: Integer;
//...
for i := 0 to ScrollBox.ControlCount - 1 do
  TWinControl(ScrollBox.Controls[i]).Cursor := {...};

Viele Grüße,
Stundenplan.

Mysterio08 · Beiträge: 21

Ja, ich meinte ScrollBox; ich weiß gar nicht, wie ich auf ScrollBar gekommen bin...

Danke Stundenplan, es funktioniert so, wie ich es mir gewünscht habe!

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme