Component Dragmode


I am building a firemonkey application and I want to make it so that the user can drag their buttons around the screen to make their own interface.

What I am first trying to do is to make a popup window that acts for:
Width: (edit box)
Height: (edit box)

and then allows the user to drag it around.

I haven’t been able to find a way to make an input dialog with 2 inputs, and even though I set the dragmode to automatic as seen below I cannot drag the object around.

obj.Position.X := 20;
obj.Position.Y := 100;
obj.DragMode := TDragMode.dmAutomatic;

Comments are closed.