dynamic creation of a component within a component
Posted on 2002-07-10
I've been trying to place components on a form dynamically and have got as far as the code below successfully.
What I now need to do is create the same as below BUT with a linked TUpDown control.
What I can't work out is
how to create it and more to the point link it up.
I know that I need to create the component somewhere within this procedure but I can't see where to use the TUpDown.associate property.
Note this is just code in a unit - I'm not particularly trying to create a component although that may be the way to go.
procedure DynaIBEdit(form: Tform; myparent: Twincontrol; mytop, myleft, mywidth: integer; myds: TIB_datasource; mydf:
with TIB_edit.Create(form) do begin
parent := myparent;
top := mytop;
left := myleft;
width := mywidth;
DataSource := myds;
datafield := mydf;