Index: VerpakkingsDefinitie/UI/CustomPanelVerpakkingParameter.pas =================================================================== diff -u -r598 -r604 --- VerpakkingsDefinitie/UI/CustomPanelVerpakkingParameter.pas (.../CustomPanelVerpakkingParameter.pas) (revision 598) +++ VerpakkingsDefinitie/UI/CustomPanelVerpakkingParameter.pas (.../CustomPanelVerpakkingParameter.pas) (revision 604) @@ -19,6 +19,7 @@ constructor Create(AOwner: TComponent); override; property ProductVerpakkingParameter: TProductVerpakkingParameter read FProductVerpakkingParameter write SetProductVerpakkingParameter; + procedure Opslaan(); end; implementation @@ -46,6 +47,7 @@ FEditControl.TextHint := Parameter.DefaultWaarde; FEditControl.Text := Parameter.Waarde; FEditControl.Hint := Parameter.ToolTip; + FProductVerpakkingParameter := Parameter; end; procedure TCustomPanelVerpakkingParameter.CreateControls(); @@ -72,4 +74,9 @@ end; end; +procedure TCustomPanelVerpakkingParameter.Opslaan(); +begin + FProductVerpakkingParameter.Waarde := FEditControl.Text; +end; + end.