TUPDown Associate Zuweisung

[creehawk]

Moin Moin!

Ich erzeuge zur Laufzeit verschiedene Elemente auf einem Formular. Beispiel:

Delphi-Quellcode:

     Left := NewImage.Width + NewLabel.Width + 14 ; Top := 32;
     For I := 0 to BuildingsNodesOrg.length-1 do
     begin
      Value := BuildingsNodesOrg.Item[I].attributes[3].Text;
        begin
        NewEdit := TEdit.Create(MainForm.PublicPanel);
        NewEdit.Parent:= MainForm.PublicPanel;
        NewEdit.Text := Value;
        NewEdit.Name := 'PSBValue'+IntToStr(I);
        NewEdit.Left   := Left;
        NewEdit.Top    := Top;
        NewEdit.Width  := 50;
        NewEdit.Height := 24;
        NewEdit.Alignment := tacenter;
        NewEdit.Color := clSilver;
        Top := Top + NewEdit.height + 2;;
        end;
     end;

Diesem Editelement soll ein TUpDown zugeordnet werden.

Delphi-Quellcode:

     For I := 0 to BuildingsNodesOrg.length-1 do
     begin
      Value := BuildingsNodesOrg.Item[I].attributes[3].Text;
        begin
        NewUpDown := TUpDown.Create(MainForm.PublicPanel);
        NewUpDown.Parent:= MainForm.PublicPanel;
        NewUpDown.Name := 'PSBUpDown'+IntToStr(I);
        NewUpDown.Left   := Left;
        NewUpDown.Top    := Top;
        NewUpDown.Width  := 24;
        NewUpDown.Height := 24;
      // WCTRL als TWinControl deklariert
        WCTRL := TEdit(MainForm.FindComponent('PSBValue' + IntToStr(I)));
        NewUpDown.AlignButton := udRight;
        NewUpDown.Associate := WCTRL;
        Top := Top + NewUpDown.height + 2;
        end;
     end;

Läuft anstandlos durch. Nun sollte dann ja eigentlich beim klicken auf den Updown der Inhalt des assoziierten Editfeldes angepasst werden. Passiert aber nicht.

Was ist nicht richtig?

creehawk