Manipulate[Graphics[Polygon[pts],PlotRange->1],{{pts,{{0,0},{1,0},{0,1}, {0.5, 0.5}}},Locator}]

Manipulate[Graphics[Polygon[pts],PlotRange->1],{{pts,{{0,0},{.5,0},{0,.5}}},Locator,LocatorAutoCreate->True}]