Gestionnaire de Projets Panoramic

dim i% , hwndF%
label checkfocus

left 0,500

alpha 5 : top 5,150 : caption 5,"Aucun Form n'a été fermé"

for i%=1 to 3
   form i% : top i%,i%*50 : caption i%,"Form "+str$(i%)
   on_close i%,checkfocus
   print "form ";i%;"   handle:",handle(i%)
next i%

dll_on "user32"

END
'
checkfocus:
  hwndF%=dll_call0("GetFocus")
  caption 5,"le Form ayant le handle "+str$(hwndF%)+" a été fermé"
return

dim i%, hwndF%, NextWindow%, ret%
label number_close, go

left 0,500

alpha 5 : top 5,200 : caption 5,"Aucun Form n'a été fermé"

for i%=1 to 3
  form i% : top i%,i%*50 : caption i%,"Form "+str$(i%)
  on_close i%,number_close
  on_activate i%,go
next i%

dll_on "user32"

END
'
number_close:
  ' on déclenche la commande 'on_activate'; Pour cela:
  hwndF%=dll_call0("GetActiveWindow") :' obtiens le handle de la fenetre courante(celle qui est en avant plan)
  NextWindow%=dll_call2("GetWindow",handle(0),2) :' obtiens le handle de la prochaine fenetre à passer en avant plan
  '
  ret%=dll_call1("SetActiveWindow",NextWindow%) :' active la prochaine fenetre, celle qui est en arrière plan
  ret% =dll_call1("SetActiveWindow",hwndF%) :' réactive la première fenetre, celle qui etait en avant plan
 

  caption 5,"le Form "+str$(number_activate)+" a été fermé "
return

go:
  ' ne rien faire
return