Mike:
Here's the form stripped down to the minimum needed to show the problem. This
form has one object (var check box) and three eeps: before start, after start,
and close. With the check box on the form, the first two execute out of order
(and both execute before the form is shown). With the check box removed, or
the variable name removed from the checkbox properties, proper execution order
is restored.
Can you confirm or negate?
object TNewDesignForm
Anchors = []
Left = 0
Top = 0
HorzScrollBar.Smooth = True
VertScrollBar.Smooth = True
VertScrollBar.Tracking = True
AutoScroll = False
Caption = 'Test'
ClientHeight = 80
ClientWidth = 216
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
KeyPreview = True
OldCreateOrder = False
PopupMenu = FormNewDesigner.pmnMain
ShowHint = True
OnActivate = FormActivate
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
OnDeactivate = FormDeactivate
OnKeyDown = FormKeyDown
OnKeyPress = FormKeyPress
OnKeyUp = FormKeyUp
OnPaint = FormPaint
OnResize = FormResize
OnShow = FormShow
DisableCloseAction = False
CustomCommands = <>
OnCustomEntryEEP.Strings = (
'PAUSE 2 USING '#39'1. This is the BEFORE start EEP'#39
'SET VAR fTest_Field2 TEXT = '#39'SCREEN'#39
'RETURN')
OnCustomExitEEP.Strings = (
'PAUSE 2 USING '#39'3. This is the on CLOSE EEP'#39
'RETURN')
OnCustomAfterEntryEEP.Strings = (
'PAUSE 2 USING '#39'2. This is the on AFTER start EEP'#39
'RETURN')
AnimationType = atNone
Relationships = trManyToOne
ClearVarOnExit = False
FormBorderStyle = bsSingle
ShowDynCaption = False
TblFldVar = False
DontShowSaveDialog = False
DontShowDeleteDialog = False
Scrollable = False
PixelsPerInch = 96
TextHeight = 13
object RBCheckBox1: TRBCheckBox
Tag = 36939454
Left = 35
Top = 30
Width = 126
Height = 17
Alignment = taLeftJustify
Caption = 'Var Check Box'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
State = cbUnchecked
TabOrder = 0
Transparent = True
ValueChecked = 'SCREEN'
ValueUnChecked = 'PRINTER'
RecalcVar = False
VarName = 'fTest_Field2'
end
end
--
Larry
