Hallo!
Ich erstelle mit folgendem Quell-Code ein Label:
Code:
newLabel := TLabel.Create(nil);
with newLabel as TLabel do
begin
Parent := HotelForm.TabSheet2;
Name := 'Label_'+zimmerNummer;
Caption := zimmerNummer;
Left := round((x1+x3)/2)+hRand-round(Width/2);
Top := round((y1+y3)/2)+hRand-round(Height/2);
Alignment := taCenter;
Layout := tlCenter;
Transparent := True;
Visible := True;
end;
Problem ist, dass das Label nicht einfach nur angezeigt wird, sondern, so wie es scheint immer wieder neu erstellt wird. Die Prozessor-Auslastung steigt auf 100% und der benötigt Speicher steigt laut TaskManager auch immer weiter an.
Ich habe jedoch keinerlei Schleife laufen.
Die Prozedur wird einmalig aufgerufen.
Woran könnte das liegen?
Vielleicht kann mir ja jemand helfen!