Membuat Form Modal di Axapta 3.0

Untuk membuat Form Modal di axapta, yaitu dengan cara berikut :

Buatlah method baru di form :

void setFormModal( int _thisHWND, boolean _bModal)
{
DLL _winApiDLL;
DLLFunction _EnabledWindow;
DLLFunction _getTop;
DLLFunction _getNext;
DLLFunction _getParent;

void local_enableWHND( int _lHWND)
{
int lnextWnd;
lnextWnd = _getTop.call( _getParent. call(_lHWND) );
while (lnextWnd)
{
if (lnextWnd != _lHWND)
_enabledWindow. call(lnextWnd, (!_bModal));

lnextWnd = _getNext.call( lnextWnd, 2);
}
}
;
_winApiDLL = new DLL('user32' );
_getNext = new DLLFunction( _winApiDLL,
"GetWindow") ;
_EnabledWindow = new DLLFunction( _winApiDLL,
"EnableWindow" );
_getTop = new DLLFunction( _winApiDLL,
"GetTopWindow" );
_getParent = new DLLFunction( _winApiDLL,
"GetParent") ;

_getParent.returns( ExtTypes: : DWORD);
_getParent.arg( ExtTypes: : DWORD);

_EnabledWindow. returns(ExtTypes :: DWORD);
_EnabledWindow. arg(ExtTypes: : DWORD, ExtTypes:: DWORD);

_getTop.returns( ExtTypes: : DWORD);
_getTop.arg( ExtTypes: : DWORD);

_getNext.returns( ExtTypes: : DWORD);
_getNext.arg( ExtTypes: : DWORD, ExtTypes:: DWORD);

local_enableWHND( _thisHWND) ;

local_enableWHND( _getParent. call(_thisHWND) );
}



panggil fungsi ini pada method run:

public void run()
{
super();

this.setFormModal( this.hWnd( ), true);
}

dan pada method close :

public void close()
{
super();

this.setFormModal( this.hWnd( ), false);
}