Hi,

If you define a form scrollable,
with ScrollBars = 2 ( vertical )
and try to define a popup within it,
when line
- ACTIVATE POPUP
or
- ACTIVATE POPUP
or
- SHOW POPUP

is executed,

DEACTIVATE FORM ...
ACTIVATE FORM ...

cycle is fired,
and the popup is activate/show after the form.Activate event,
but before the Form.Gotfocus event.

This force to lose the focus by the activecontrol,
and when the popup is selected not exist a activecontrol.

Repro

PUBLIC oform1

oform1=NEWOBJECT("form1")
oform1.Show
RETURN

DEFINE CLASS form1 AS form

	Height = 223
	Width = 358
	Caption = "Form1"
	Name = "Form1"

* COMMENT NEXT LINE FOR NOT SCROLLABLE
	ScrollBars 	= 2
	
	ADD OBJECT command1 AS commandbutton WITH ;
		Top = 208, ;
		Left = 279, ;
		Height = 27, ;
		Width = 84, ;
		Caption = "Popup", ;
		Name = "Command1"

	PROCEDURE Activate
	   ScrollBars = 2
		WAIT WINDOWS "FORM ACTIVATE" TIMEOUT 10
	ENDPROC

	PROCEDURE Deactivate
		WAIT WINDOWS "FORM DEACTIVATE" TIMEOUT 10
	ENDPROC

	PROCEDURE command1.Click
		DEFINE POPUP popProva FROM 0,2 IN (m.thisform.Name)
		DEFINE BAR 1 OF popProva PROMPT "bar 1"
		DEFINE BAR 2 OF popProva PROMPT "bar 2"

		thisform.Cls

		@ 3  ,1 SAY "BEFORE ACTIVATE"
		ACTIVATE POPUP popProva
		@ $+1,1 SAY  "AFTER ACTIVATE"
		DEACTIVATE POPUP popProva
		RELEASE    POPUP popProva
	ENDPROC

ENDDEFINE

Fabio