On Jun 29, 2008, at 1:34 PM, Norman Palardy wrote:
Hmmmmmm ... it is called here in 2008r2
When I made my quick simple example i had a mistake which meant the
wrong window was active which is why it appeared not to work in R2.
In my 2007R3 App (which I can't test in 2008R2)
I have a method on window that configures the window and then shows it:
Sub ShowLots(DisplayLotList() as cLot)
Dim i, ub as Integer, lot as clot, LotStr as String, Item as
LotMenuItem
ReDim UnSavedModification(-1)
LotMenu.DeleteAllRows
ub = LotsMenu.Count - 1
for i = ub DownTo 0
LotsMenu.Remove i
Next
ub = UBound(DisplayLotList)
ReDim UnSavedModification(ub)
If ub = -1 then
MsgBox("No Lots To Display")
Self.Close
ElseIf ub = 0 Then
LotNavControl.Visible = False
End if
me.LotList = DisplayLotList
CurrentRecord = -1
For i = 0 to ub
lot = LotList(i)
ModifiedComments.Append lot.Comment
LotStr = "A:" + lot.AnalRef + " B:" + Lot.MI_ID + " L:" + Lot.LotID
LotMenu.AddRow(LotStr, i + 1)
LotsMenu.Append New LotMenuItem(LotStr, i + 1)
Next
Record = 1
me.ShowModal ' <---------------------------------------
End Sub
And the EnableMenuItems does does fire though controls on the window
are responsive and the window is active..
If I change:
me.ShowModal
to:
me.Show
then EnableMeuItems fires and my items are enabled as expected!
- Karen
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives:
<http://support.realsoftware.com/listarchives/lists.html>
|