TImage und Co auf Transparenter Form per DragAndDrop verschieben

[davtix]

Hallöchen ^all

Ich versuche ein Personalisiertes Startmenü mit ein paar Grafikeffekten zu erstellen.

Bedingung: Es soll Transparent sein. 100% sind nicht nötig 20% so in der drehe denke ich mir.
Die Images (die als Icons dienen) dürfen aber nicht Transparent sein.

So entschloss ich mich zu

Code:

Form2.Brush.Style := bsclear

Dahinter startet eine weitere Form mit

Code:

Form2BG.Alphablend :=true;
Form2BG.AlphablendValue := 130;

AlphablendValue ist über einen Slider einstellbar.
Bild p1.jpg
Was jetzt schon auffällt, die transparenten Images werden hier wieder schwarz gezeichnet. Dies ging ab einer Menge von 30 Images los.
Verschiebe ich ein Image, geschieht folgendes -> p2.jpg.

Dieses Problem könnte ich lösen, wenn ich vor dem Verschieben auf

Code:

form2.Brush.Style := bsSolid;
form2.Color := clblack;

schreibe. ->p3.jpg
und danach wieder auf

Code:

form2.Brush.Style := bsClear;

Schalte ich nu ein zweites mal auf bsSolid ist das Fenster allerdings weiss. -> siehe p4.jpg

Hat wer noch ein paar Ideen dazu ??

[davtix]

Problem gelöst:
Mehr als 3 Labels dürfen nicht auf der Form sichtbar sein.-> Nun sind auch die Images wieder Transparent
Im Hintergrund wird ein schwarzes Bild geladen -> bsSolid nicht mehr nötig