Prozedur führt nicht alle Anweisungen aus

[gfjs]

Guten Morgen.

Ich habe wieder einmal ein Problem, das ich mir nicht erklären kann:

Auf meinem Formular befinden sich ein Panel, mehrere Buttons, eine GroupBox mit einer darin enthaltenen TextBox. Zur Laufzeit werden auf dem Panel eine Reihe Labels erzeugt; mit Include(MyLabel.Click, Dummy_Click); wird allen Labels dieselbe Methode zugewiesen. Diese Methode zeigt ein mir unverständliches Verhalten.

Delphi-Quellcode:

procedure frmSpielplan.dummy_Click(sender: System.Object; e: System.EventArgs);
begin
  if not Status.Ispossible then
  begin
    for i := 0 to Panel1.Controls.Count - 1 do
    begin
      dosomething;
    end;
  end;
end;

führt nur Anweisungen aus, die sich auf die Labels beziehen und lässt keinerlei Zugriff auf andere Komponenten zu.

Die Anweisung "Self.BackColor := System.Drawing.Color.Red;" wird nicht ausgeführt, egal ob sie nach dem "begin, vor dem "end" oder innerhalb einer der Schleifen steht. Die Anweisungen innerhalb der Schleife, die sich auf die Eigenschaften der Labels beziehen, werden aber korrekt ausgeführt.

Ich bin ziemlich ratlos und hoffe, dass mir von Euch jemand weiterhelfen kann.

Gruß Jürgen.