Le forum (ô combien francophone) des utilisateurs de Powerbuilder.
Griser le bouton X, afin que l'utilisateur ne puisse pas refermer l'application.
Attention, cela n'empeche pas l'action 'Alt - F4'
declaration en local external function :
Function ulong GetSystemMenu(ulong hWnd, BOOLEAN bRevert) Library "user32.dll" Function BOOLEAN EnableMenuItem(ulong hMenu, uint uIDEnableItem, uint uEnable) Library "user32.dll"
puis, dans l'evenement open de la fenetre :
uint SC_CLOSE = 61536 uint MF_BYCOMMAND = 0 uint MF_GRAYED = 1 EnableMenuItem(GetSystemMenu(handle(This), FALSE), SC_CLOSE, MF_BYCOMMAND + MF_GRAYED)
Hors ligne