Hallo zusammen,
ich habe mal wieder ein kleines Problem.
Ich erzeuge mit einer ObjectList eine flexible Anzahl von Panels, mit darauf liegenden SpinButtons und Editboxen.
Jetzt habe ich das Problem, dass in dem SpinButton Event nicht die dazugehörige Editbox finde.
Hatt mit jemand eine Idee, wie das in Griff bekommen könnte?
anbei mal der Code, wie ich die Panels etc. erstelle:
Delphi-Quellcode:
{Instanz einer ObjectList erstellen}
MyControls := TObjectList.Create(true);
{Visiualisierung starten}
for n := 0 to high(Mydata) - 1 do begin
{Panel malen}
NewPanel := TJvPanel.Create(BOT_BEST_PANEL);
with NewPanel do begin
Top := YPOS;
Left := XPOS + (n * (intPanelWidth + intPanelOffsetX));
Width := intPanelWidth;
Height := intPanelHeight;
Parent := BOT_BEST_PANEL;
ParentBackground := true;
end;
{Edit malen}
NewEdit := TLabeledEdit.Create(NewPanel);
with NewEdit do begin
Top := EDITYPOS;
Left := EDITXPOS;
Width := EDITWidth;
Height := EDITHeight;
Parent := NewPanel;
Editlabel.Caption := mydata[n].caption;
text := FloatToStr(mydata[n].default);
end;
{SpinButton malen }
NewSpinBtn := TJvSpinbutton.Create(NewPanel);
with NewSpinBtn do begin
Top := SPINBTNYPOS;
Left := (XPOS+intPanelWidth)-(EDITXPOS+SPINBTNWidth);
Width := SPINBTNWidth;
Height := SPINBTNHeight;
Parent := NewPanel;
OnBottomClick := MyBottomClick;
OnTopClick := MyTopClick;
end;
Danke