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