Hi Cetin,
In your example, when I click on the first form (after having opened the second form), the first form gets focus but still won't come on top. So, it's not the solution.
>Peter,
>Is this what you want ?
>
>PUBLIC oform1, oform2
>
>oform1=NEWOBJECT("form1")
>oform1.Show
>read events
>RETURN
>
>DEFINE CLASS form1 AS form
>
> Top = 17
> Left = 102
> ShowWindow = 2
> DoCreate = .T.
> Caption = "Form1"
> Name = "Form1"
>
> ADD OBJECT command1 AS commandbutton WITH ;
> Top = 36, ;
> Left = 66, ;
> Height = 27, ;
> Width = 84, ;
> Caption = "Command1", ;
> Name = "Command1"
>
>
> ADD OBJECT command2 AS commandbutton WITH ;
> Top = 210, ;
> Left = 264, ;
> Height = 27, ;
> Width = 84, ;
> Caption = "Command2", ;
> Name = "Command2"
>
>
> PROCEDURE command1.Click
> oform2=NEWOBJECT("form2")
> oform2.Show
> ENDPROC
>
>
> PROCEDURE command2.Click
> thisform.release()
> ENDPROC
> Procedure QueryUnload
> clear events
> endproc
>ENDDEFINE
>
>DEFINE CLASS form2 AS form
>
> Top = 0
> Left = 0
> Height = 205
> Width = 327
> Desktop = .F.
> ShowWindow = 1
> DoCreate = .T.
> Caption = "Form2"
> Name = "Form2"
>
>
> ADD OBJECT command1 AS commandbutton WITH ;
> Top = 150, ;
> Left = 216, ;
> Height = 27, ;
> Width = 84, ;
> Caption = "Command1", ;
> Name = "Command1"
>
>
> PROCEDURE command1.Click
> thisform.release()
> ENDPROC
>
>ENDDEFINE
>>Cetin
Groet,
Peter de Valença
Constructive frustration is the breeding ground of genius.
If there’s no willingness to moderate for the sake of good debate, then I have no willingness to debate at all.
Let's develop superb standards that will end the holy wars.
"There are three types of people: Alphas and Betas", said the beta decisively.
If you find this message rude or offensive or stupid, please take a step away from the keyboard and try to think calmly about an eventual a possible alternative explanation of my message.
