Scrollbox Klassen unterbringen

[helga5]

Ich moechte gerne in einer Scrollbox die Class TKreis unterbringen.
Wichtig ist, dass mehrere Kreise dort untergebracht werden können und per Mausclick (onclick Ereignis) ansprechbar (Kreis1 soll dann im Label1 als 1 identifiziert werden) sind. Scrollbox deshalb, weil ich gerne hätte, dass sich alles scrollen läßt. Genau darin scheint das Problem zu liegen. Schoen waere es, wenn die Kreise vorher nicht alle festgesetzt sind, sondern erst in der Laufzeit erzeugt werden. Bislang habe ich es nur geschafft _ein_ image unterzubringen. Kann mir da jemand helfen? (Anmerkung: Eine TKreis unit habe ich schon gebastelt)

[Kroko1999]

(a) nimm TShape, das sollte am einfachsten sein, die ziehst Du in die Scrollbox und fertig!
(b) Welche Vorfahren hat Dein TKreis? Wenn es von TCustomControl o.ä. abgeleitet wird dann wie folgt:

Delphi-Quellcode:

  K := TKreis.Create (Self);
K.Parent := ScrollBox;
K.SetBounds (Links,oben,Breite,Höhe);

[helga5]

Ja natürlich! Ist doch einfacher als ich dachte!
Wenn man z.B. schon eine Komponente hat, die man zur
Laufzeit der Form1 uebergeben hat (zur Laufzeit) , braucht
man lediglich
...parent:=scrollbox1 usw.
also alles was vorher form1 war umändern. Wenn man eine Klasse schreibt
muss man eben z.B. onclick usw. selbst schreiben.
War wirklich nicht so schwer.
Ich dachte scrollbox wäre irgendetwas besonderes, da ich damit noch nie gearbeitet habe.

helga