Han-Active Container

From Vectorlab
Jump to: navigation, search


Returns the currently active container. There are many ways to achieve this result, in due time I'll add more variants.


{ Orso ************************************************ }
{ the currently active container }
FUNCTION H_ActContainer: HANDLE;
	BEGIN
		BeginContext;
			Locus(0, 0);
			H_ActContainer := GetParent(LNewObj);
			DelObject(LNewObj);
		EndContext(0);
	END;