Einzelnen Beitrag anzeigen

gfjs

Registriert seit: 8. Dez 2005
Ort: Hohenkammer
298 Beiträge
 
Delphi 2006 Professional
 
#1

Prozedur führt nicht alle Anweisungen aus

  Alt 5. Sep 2006, 06:07
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.
Mein neues Motto (von "Unbekannt"):
Gewinnen: Wenn Du kannst - Verlieren: Wenn Du musst - Aufgeben: NIE!
  Mit Zitat antworten Zitat