Moin Vale,
wenn Du die Kreise in der genannten Weise zeichnest, brauchst Du schon mal keine Panel.
Du musst nur das
Handle der Komponente angeben, auf der gezeichnet werden soll (statt Panel1.Handle, kann es auch Form1.Handle sein).
Die Position an der die Kreise gezeichnet werden sollen wird in den Paramtern von Ellipse angegeben.
Zweiter und dritter Parameter geben die X- und die Y-Koordinate der linken oberen Ecke, die nächsten der rechten unteren Ecke des Rechteckes an, das den Kreis umschliesst.
Damit kannst Du dann die Kreise beliebig positionieren.
Experimentiere doch einfach mal mit den den Parametern von Ellipse.
Mach Dir doch aus der Zeichenroutine eine Prozedur, der die Farbe, und die Koordinaten (z.B. X-Kreismittelpunkt, Y-Kreismittelpunkt) als Parameter übergeben werden. Den Durchmesser wirst Du ja wohl eh' festlegen.
Um jetzt eine Auswahl zu treffen, schau Dir bitte mal den Thread mit den Lottozahlen an, den ich oben schon genannt habe.
Die erste Seite müsste für Deine Anwendung genügen. Wichtig ist: Du ziehst hier 4 aus 6 statt 6 aus 49, und in der Liste musst Du statt der integer die Farben (TColor) speichern.
Im Gegensatz zu dem dort genannten Problem, brauchst Du noch nicht einmal zu sortieren, bzw. Du darfst es gar nicht.
Das entfällt bei Dir also sowieso.
Zitat
Baum-Darstellung
