ウインドウを最前面に表示する          <TOP>


BringWindowToTop ウインドウを一時的に最前面に表示


 

'================================================================
'= ウィンドウを最前面に表示する
'================================================================
#include "Windows.bi"

' ウインドウを一時的に最前面に表示
Declare Function Api_BringWindowToTop& Lib "user32" Alias "BringWindowToTop" (ByVal hWnd&)

Var Shared MainForm As Object
Var Shared Form2 As Object
MainForm.Attach GethWnd

'================================================================
'=
'================================================================
Declare Sub MainForm_Start edecl ()
Sub MainForm_Start()
    Form2.CreateWindow "Form2",-1
End Sub

'================================================================
'=
'================================================================
Declare Sub Button1_on edecl ()
Sub Button1_on()
    Var Ret As Long

    Ret = Api_BringWindowToTop(Form2.GethWnd)
End Sub

'================================================================
'=
'================================================================
Declare Sub Button2_on edecl ()
Sub Button2_on()
    Var Ret As Long

    Ret = Api_BringWindowToTop(MainForm.GethWnd)
End Sub

'================================================================
'=
'================================================================
While 1
    WaitEvent
Wend
Stop
End