Create Shapes runtime, then drag and drop them.

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?

Comments

  • I got it right by using a TComponentList. Relatively easy.

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

Howdy, Stranger!

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

Categories

In this Discussion