FormPos.dbf Field FormName C (20) Left I Top IThen in the Init of your form class put this code:
* Form class Init LOCAL lcAlias lcAlias = ALIAS() IF NOT USED("FormPos") SELECT 0 USE FormPos AGAIN ALIAS FormPos ELSE SELECT FormPos ENDIF LOCATE FOR FormName = This.Name IF FOUND() This.Left = FormPos.Left This.Top = FormPos.Top ELSE APPEND BLANK REPLACE FormName WITH This.Name ENDIF IF NOT EMPTY( lcAlias ) SELECT ( lcAlias ) ELSE SELECT 0 ENDIFand in the Destroy of the form class put this code;
LOCAL lcAlias lcAlias = ALIAS() IF NOT USED("FormPos") SELECT 0 USE FormPos AGAIN ALIAS FormPos ELSE SELECT FormPos ENDIF LOCATE FOR FormName = This.Name REPLACE Left WITH This.Left, ; Top WITH This.Top IF NOT EMPTY( lcAlias ) SELECT ( lcAlias ) ELSE SELECT 0 ENDIF