Problem mit Label

[stoermi]

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!

[Mario]

An dem Codeschnipsel liegt es nicht. Schon mal mit dem Debugger den Aufrufstack überprüft?

[stoermi]

Nein hab ich noch nicht.

Aber wie ist das:

Die Prozedur hat noch mehr Code. Bevor das label erstellt wird, wird in eine PaintBox im selben Formular ein Polygon eingezeichent. Dieses wird jedoch nicht immer wieder neu gezeichnet?
Deshalb nehme ich an, dass die Prozedur auch nicht immer wieder neu geladen wird. Oder flällt das bei einem Polygone einfach nicht auf.

Ich werde jetzt mal ver suchen, es über den Debugger rauszubekommen.

[Matze]

Herzlich willkommen in der DP!

Rufst du den Code (ungewollt) in einer Schleife auf, sodass er mehrmals ausgeführt wird?

[ibp]

wenn die zimmernummer immer gleich bleibt, dann würde es beim 2. label eine fehlermeldung geben, da es ja schon ein label mit diesem namen gibt!!!

[stoermi]

Die Zimmernummer ist eigentlich immer die selbe. Das wundert mich ja gerade. Eine Fehlermeldung kommt nicht.

Wenn er das Label aber nicht immer neu erstellt, warum läuft der Prozessor dann so hoch? Nehm ich oben genannten Code raus, passiert das nicht!
Und warum zittert das Label dann? So ne Art blinken.

Liegt es vielleicht daran, das das Label oben auf einer PaintBox drauf liegt?
Also das HotelForm besteht aus zwei TabSheets. Im einen Tabsheet wird eine PaintBox gezeichnet und darauf ein Polygon gezeichnet. Und hier oben drauf soll das Label dargestellt werden.

Könnte es daran liegen?

[Neutral General]

Ist die procedure vielleicht in einem Timer ?
Dann wäre es ja kein Wunder

[stoermi]

Alos ich habe keinen Timer deklariert.

[ibp]

wie wäre es mal mit ein wenig mehr code?

[Sharky]

Zitat von stoermi:

Alos ich habe keinen Timer deklariert.

Ohne etwas mehr Quellcode (wo kommt z.B. zimmerNummer her?) kann man da nicht viel sagen.