Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!


Create Shapes runtime, then drag and drop them.

ockiejvsockiejvs Member Posts: 3
I want to create unlimited number of shapes (TShape) dynamically at runtime, which is not a problem, but then I want to manipulate them (change property values) and invoke events (e.g. OnMouseDown) after they have been created. I don't seem to get a handle on the created object. Can anyone help?


  • ockiejvsockiejvs Member Posts: 3
    I got it right by using a TComponentList. Relatively easy.

    if (Sender is TManyShape) then
    pointer := ComponentList1.IndexOf(ManyShape);
    ManyShape:= TManyShape(ComponentList1[pointer]);
Sign In or Register to comment.